Public Function URLEncode(sRawURL As String) As String
 
 Const sValidChars As String = _
   "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz:/.?=_-$(" & _
   "){}~&"
 Dim iLoop As Integer
 Dim sRtn As String
 Dim intChar As Integer
 Dim iLen As Long
 Dim sChar As String
 
   On Error GoTo Catch
 
   iLen = Len(sRawURL)
   If iLen <> 0 Then
      sRtn = Space$(iLen * 3)
      iLen = 1
      ' Loop through each char
      For iLoop = 1 To Len(sRawURL)
         sChar = Mid$(sRawURL, iLoop, 1)
         intChar = Asc(sChar)
         If InStr(1, sValidChars, sChar, vbBinaryCompare) = 0 Then
            If intChar >= 16 Then
               Mid$(sRtn, iLen, 3) = "%" & Hex$(intChar)
             Else
               Mid$(sRtn, iLen, 3) = "%0" & Hex$(intChar)
            End If
            iLen = iLen + 3
          Else
            Mid$(sRtn, iLen, 1) = sChar
            iLen = iLen + 1
         End If
 
      Next iLoop
 
      URLEncode = Left$(sRtn, iLen - 1)
   End If
 
Finally:
 
Exit Function
 
Catch:
   URLEncode = vbNullString
   Resume Finally
 
End Function

Gru?,
Nukeduke

if (youAreHappyAndYouKnowIt) {
???ClapYourHands();
}