http till länkar

Sökte lite på detta och hittade en del men blev inte klok på något av svaren. Jag tog ett script från ett av svaren. tror det var Vides...

Function lankar(strInput) 'funktion för att göra länkar där ord börjar med http://
iCurrentLocation = 1
Do While InStr(iCurrentLocation, strInput, "http://", 1) <> 0
iLinkStart = InStr(iCurrentLocation, strInput, "http://", 1)
iLinkEnd = InStr(iLinkStart, strInput, " ", 1)
If iLinkEnd = 0 Then iLinkEnd = Len(strInput) + 1
Select Case Mid(strInput, iLinkEnd - 1, 1)
Case ".", "!", "?"
iLinkEnd = iLinkEnd - 1
End Select
strOutput = strOutput & Mid(strInput, iCurrentLocation, iLinkStart - iCurrentLocation)
strLinkText = Mid(strInput, iLinkStart, iLinkEnd - iLinkStart)
strOutput = strOutput & "<A HREF="""&strLinkText&""" class=""link"">"&Mid(strLinkText,1)&"</A>"
iCurrentLocation = iLinkEnd
Loop
strOutput = strOutput & Mid(strInput, iCurrentLocation)
lankar = strOutput
End Function

detta bli konstigt om man trycker enter innan mellanslag efter länken. Finns det nåt sätt att fixa det?