Function STR2URL(name As String) As String
    name = Replace(name, " ", "+")
    name = Replace(name, "<br>", "%0D%0A")
    name = Replace(name, "!", "%21")
    name = Replace(name, """, "%22")
    name = Replace(name, Chr(34), "%22")
    name = Replace(name, "§", "%A7")
    name = Replace(name, "$", "%24")
    name = Replace(name, "%", "%25")
    name = Replace(name, "&", "%26")
    name = Replace(name, "/", "%2F")
    name = Replace(name, "(", "%28")
    name = Replace(name, ")", "%29")
    name = Replace(name, "=", "%3D")
    name = Replace(name, "?", "%3F")
    name = Replace(name, "²", "%B2")
    name = Replace(name, "³", "%B3")
    name = Replace(name, "{", "%7B")
    name = Replace(name, "[", "%5B")
    name = Replace(name, "]", "%5D")
    name = Replace(name, "}", "%7D")
    name = Replace(name, "\", "%5C")
    name = Replace(name, "ß", "%DF")
    name = Replace(name, "#", "%23")
    name = Replace(name, "'", "%27")
    name = Replace(name, ":", "%3A")
    name = Replace(name, ",", "%2C")
    name = Replace(name, ";", "%3B")
    name = Replace(name, "`", "%60")
    name = Replace(name, "~", "%7E")
    name = Replace(name, "+", "%2B")
    name = Replace(name, "´", "%B4")
    STR2URL = name
End Function
 
Function URL2STR(name As String) As String
    Dim pos As Long, Temp As String
    name = Replace(name, "+", " ")
    name = Replace(name, "%0D%0A", vbCrLf)
    pos = InStr(1, name, "%")
    Do While pos <> 0
        Temp = Mid(name, 1, pos - 1)
        Temp = Temp + CStr(Chr("&H" + Mid(name, pos + 1, 2)))
        Temp = Temp + Mid(name, pos + 3, Len(name) - pos - 2)
        name = Temp
        pos = InStr(pos + 1, name, "%")
    Loop
    URL2STR = name
End Function

Gru?,
Frank

FrankGrimm.net - Meine kleine Ecke des Webs