Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim url As String = "http://www.example.com/22/10/2013,hi all"
MsgBox(EncodeURL(url))
End Sub
Public Function EncodeURL(strUrl As String) As String
Dim encUrl As String = String.Empty
For Each c As Char In strUrl
Select Case Asc(c)
Case 48 To 57, 65 To 90, 97 To 122
encUrl &= c
Case 32
encUrl &= "+"
Case Else
encUrl &= "%" & Asc(c).ToString("X2")
End Select
Next
Return encUrl
End Function
Select Case Asc(c)
Case 48 To 57, 65 To 90, 97 To 122
encUrl &= c
Case 32
encUrl &= "+"
Case Else
encUrl &= "%" & Asc(c).ToString("X2")
End Select