URLEncode

Hej

Jeg fandt denne funktion et sted:

---
Public Function URLEncode(Tx As String) As String
    Const ZERO_PERCENT  As String = \"%0\"
    Const PERCENT        As String = \"%\"
    Dim strTemp        As String
    Dim strChar        As String
    Dim nTemp          As Integer
    Dim nAsciiVal      As Integer
    Dim Str            As String
   
    Str = Trim$(Tx)
    If Len(Str) = 0 Then Exit Function
    For nTemp = 1 To Len(Str)
        nAsciiVal = Asc(Mid(Str, nTemp, 1))
        If ((nAsciiVal < 123) And (nAsciiVal > 96)) Then
            strTemp = strTemp & Chr$(nAsciiVal)
        ElseIf ((nAsciiVal < 91) And (nAsciiVal > 64)) Then
            strTemp = strTemp & Chr$(nAsciiVal)
        ElseIf ((nAsciiVal < 58) And (nAsciiVal > 47)) Then
            strTemp = strTemp & Chr$(nAsciiVal)
        Else
            strChar = Trim$(Hex$(nAsciiVal))
            If nAsciiVal < 16 Then
                strTemp = strTemp & ZERO_PERCENT & strChar
            Else
                strTemp = strTemp & PERCENT & strChar
            End If
        End If
    Next
    URLEncode = strTemp
End Function
---

Men jeg kan ikke lige få den til at ringe ...

Er der mig der er ude på et skidespor, eller er der en nemmere måde?