For mange url-adresser bliver tilføjet

Hej har et program som går ind og læser url fra to inputboxe, hvor den går ind og ændre tilføjer url til urlén, men den tilføjer lidt for meget.

Her er hvad den skriver når jeg har kørt programmet igennem:

<a href="http://www.jan.dk/goto.asp?path=http%3A%2F%2Fwww%2Ecompumail%2Edk%2Fhttp%3A%2F%2Fwww%2Ecompumail%2Edk%2Fnp%5Fdk%2Findex%2Ehtml">

Denne del efter = er for meget http%3A%2F%2Fwww%2Ecompumail%2Edk%2F, men det sidste er rigtig nok. Mit spg går på hvor fejlen ligger i følgende kode:

i = InStr(1, webp, "href=", CompareMethod.Text)
        While i > 0
            If i > 0 Then
                If InStr(i + Len("href="), webp, " ", CompareMethod.Text) < InStr(i + Len("href="), webp, ">", CompareMethod.Text) Then
                    j = InStr(i + Len("href="), webp, " ", CompareMethod.Text)
                Else
                    j = InStr(i + Len("href="), webp, ">", CompareMethod.Text)
                End If
            End If

            If j > 0 Then

                goUrl = Replace(Mid(webp, i + Len("href="), j - i - Len("href=")), """", "")
                goUrl = Replace(goUrl, " ", "")
                goUrl = Replace(goUrl, "'", "")

                If Not InStr(url & "/", Replace(goUrl, "http://", ""), CompareMethod.Text) > 0 Then
                    goUrl = Replace(Replace(url & "/" & goUrl, "//", "/"), "//", "/")
                End If

                goUrl = Replace(goUrl, "////", "//")
               
                goUrl = Replace(Replace(Replace(projecturl & "/goto.asp?path=", "//", "/"), "//", "/"), "http:/", "http://") & URLEncode(Replace(Replace(goUrl, "//", "/"), "http:/", "http://"))

                webp = Mid(webp, 1, i - 1) & "href=""" & goUrl & """" & Mid(webp, j)

            End If
            i = InStr(i + 1, webp, "href=", CompareMethod.Text)
        End While

        setLinks = webp

Håber i kan hjælpe