Første tegn og linieskift

Jeg kan udskrive første 200 tegn med:
response.write Left(objRS("Beskrivelse"),200)

Jeg kan lave linieskift med:
response.write replace(objRS("Beskrivelse"),vbCrLf,"<br>")

Kan dette kombineres så der vises første 2oo tegn og linieskift?

Mit nedenstående forsøg viser kun teksten - Beskriv

dim Beskriv
Beskriv = objRS("Beskrivelse")
If Len(Beskriv) > 200 then
Beskriv = Left(beskriv,200)
Beskriv = Beskriv & "...Læs mere"
      response.write replace(("Beskriv"),vbCrLf,"<br>")
end if