Private Function URLDecode(ByVal txt As String) As String
 Dim txt_len As Integer
 Dim i As Integer
 Dim ch As String
 Dim digits As String
 Dim result As String

  result = ""
  txt_len = Len(txt)
  i = 1
  Do While i <= txt_len
    ch = Mid$(txt, i, 1)
    If ch = "+" Then
      result = result & " "
    ElseIf ch <> "%" Then
      result = result & ch
    ElseIf i > txt_len - 2 Then
      result = result & ch
    Else
      digits = Mid$(txt, i + 1, 2)
      result = result & Chr$(CInt("&H" & digits))
      i = i + 2
    End If
    i = i + 1
  Loop

  URLDecode = result
End Function