send binary through Winsock

[bordino]

hi all im trying to convert a text value in to ByteArray
hold 160 bit in a buffer send the buffer every 20 ms through a winsock using UDP .


any help suggestions will be appreciated alot



Here's what I have so far


Private Sub Command1_Click()
Dim Ff as Integer,
Dim By As Byte
Ff = FreeFile
Open "C:\test.txt" For Binary as #Ff
Get #Ff, , By
Close #Ff
Winsock1.SendData By
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim By As Byte
Winsock1.GetData By
End Sub