Den gör inte om till länk

Hejsan!
Jag har snickar ihop följande kod

'  Fix Char
'  ********
   Dim Str, Str2, HyperArray, Link
   Function FixChar(Str)
    Str = Replace(Str,VBCrLf,"<br>" & VBCrLf)
    Str = Replace(Str,"<rubrik>","<span class=""rubrik"">")
    Str = Replace(Str,"</rubrik>","</span>")

    HyperArray = Split(Str)
    For Each Link In HyperArray
     If Len(Link) > 7 Then
      If Lcase(left(Link,7)) = "http://" Then
       Str2 = Str2 & "<a href="""& Link &""">"& Link &"</a> "
      ElseIf InStr(Link,"@")>1 Then
       Str2 = Str2 & "<a href=""mailto:"& Link &""">"& Link &"</a> "
      Else
       Str2 = Str2 & Link &" "
      End If
     Else
      Str2 = Str2 & Link &" "
     End If
    Next

   FixChar = Str2
   End Function

Den skall gå igenom texten o gör om ord till länk om det finns..
Men av någon anledning så blir det inga länkar fast man skriv in det..
Någon som hittar något fel?