ANSI Character in Yahoo

[itswaps]

im trying to create a ANSI Character based Non-English yahoo chat client in .but i cant send the all 255 Characters like , ¬ ¢ , & more
how can i send these Characters , plz help me from this problem.

my pm send packet-

Public Function SendPM(User As String, Sendto As String, message As String) As String
Dim Pck As String
Pck = "1" & User & "5" & Sendto & "14" & message & "97163642100212060"
SendPM = Header("06", Pck)
Debug.Print SendPM
End Function

-thank u

[itswaps]

i have tryed the Unicode & able to make the text pad ,, but i dont know how the Unicode works with yahoo , sending like
& # 97 ; or 2494 & converting it in to the Character/Symbol.
Is there any way to send these & converting the Unicode in to the Character in yahoo.

the yahoo messenger supports the all ANSI Character, like , ¬ ¢, but i cant send them with mi chat client ,
Is there any way to send these Character (¬ ¢) in yahoo with vb.

-thanx

[Jerk]

try sniffing the packets or try using these function

Public Function HextoAscii(inputstr As String) As String
Dim spilter As Variant, i As Integer, finnal As String
If InStr(1, inputstr, " ") <> 0 Then
spilter = Split(inputstr, " ")
For i = 0 To UBound(spilter)
finnal = finnal & Chr(Val("&H" & spilter(i)))
Next i
HextoAscii = finnal
ElseIf Len(inputstr) = 2 Then
finnal = Chr(Val("&H" & inputstr))
HextoAscii = finnal
End If
End Function

Public Function HextoLen(inputstr As String) As String
Dim spilter As Variant, i As Integer, finnal As String
If InStr(1, inputstr, " ") <> 0 Then
spilter = Split(inputstr, " ")
For i = 0 To UBound(spilter)
finnal = finnal & Asc(Chr(Val("&H" & spilter(i)))) & " "
Next i
HextoLen = finnal
ElseIf Len(inputstr) = 2 Then
finnal = Asc(Chr(Val("&H" & inputstr)))
HextoLen = finnal
End If
End Function

Public Function LentoHex(inputstr As String) As String
Dim spilter As Variant, i As Integer, finnal As String
If InStr(1, inputstr, " ") <> 0 Then
inputstr = Trim(inputstr)
spilter = Split(inputstr, " ")
For i = 0 To UBound(spilter)
finnal = finnal & Hex(Asc(Chr(spilter(i)))) & " "
Next i
LentoHex = finnal
ElseIf Len(inputstr) = 2 Then
finnal = Hex(Asc(Chr(inputstr)))
LentoHex = finnal
End If
End Function

Public Function Asciitohex(inputstr As String) As String
On Error Resume Next
Dim spilter As Variant, i As Integer, finnal As String
For i = 1 To Len(inputstr)
finnal = finnal & Hex(Asc(Mid(inputstr, i, 1))) & " "
Next i
Asciitohex = Mid(finnal, 1, Len(finnal) - 1)
End Function

example

Sock.SendData (HextoAscii("put the hex part here")

hope that helps