Opret hyperlink: Undgå sti ved internetadresser

Kære eksperter,

Jeg har en formular, hvor brugeren kan indsætte enten et link til en fil eller en internetadresse (i tekstboksen "txtsti", så der gemmes et hyperlink med teksten "Link" i en celle.

Koden ser således ud:

'Lav hyperlink HVIS der ikke allerede er et
If txtsti.Text <> "Link" Then

    With ActiveCell
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=txtsti.Text, TextToDisplay:="Link"
    End With
Else
   
End If

Mit problem er, at hvis man fx skriver "http://dr.dk", så gemmes følgende sti:

file:///\\.host\ HELE STIEN TIL HVOR DENNE FIL LIGGER \http://dr.dk

i stedet for blot htto://dr.dk

Kan nogen hjælpe?

MVH

gladhund