VBA - URL encoding function

Function getUrlEncode(strString) 'As String

    ' Declare
    Dim strUrlEncode
    Dim lngPos
   
    ' Each character
    For lngPos = 1 To Len(strString)
        getUrlEncode = _
            strUrlEncode & "%" & _
            Right( _
                "0" & _
                Hex(Asc(Mid(strString, lngPos, 1))) _
                , 2 _
            )
    Next
    getUrlEncode = strUrlEncode

End Function