If you don't mind:Quote:
@Mirecekxxx: Ahh that was the thing that i forgot! I dont got sleep today ;D
Code:
Private Function Encoding(ByVal string0 As String) As String
Dim stringdata() As Byte = New UTF8Encoding().GetBytes(string0)
Dim temp As String = ""
For Each b As Byte In stringdata
temp += "%" + BitConverter.ToString(New Byte() {b})
Next
Return temp
End Function