Winsock en lugar de Mscomm 
Que tal amigos de foro una duda tengo un programa de visual basic 6 que tiene por defecto un mscomm, mi pregunta es ¿puedo reemplazar por un winsock?, veran que como cambie la PC ahora tengo que usarlo con un winsock, soy muy novato en esto de programar pero cualquier ayuda que me sirva para comenzar sera de ayuda
este es parte del programa
Dim Data As String
Dim t1 As Long
t1 = (CLng(197) * 256)
Data = Chr(1) + Chr(3) + Chr(Val(Text4.Text) \ 256) + Chr(Val(Text4.Text) Mod 256) + Chr(0) + Chr(Val(Text5.Text))
CRC_16 Data, 6
Data = Data + Chr(CRC_High) + Chr(CRC_Low)
Dim PauseTime, Start, Finish, TotalTime
InBuffor = ""
MSComm1.InputLen = 0
MSComm1.PortOpen = True
MSComm1.Output = Data
Do While MSComm1.OutBufferCount > 0
Loop
PauseTime = 5 ' Set duration.
Start = Timer ' Set start time.
Do While (Timer < Start + PauseTime) And (MSComm1.InBufferCount < Val(Text5.Text) * 2 + 5)
DoEvents
Loop
' Text4.Text = Str(MSComm1.InBufferCount)
Text3.Text = Str(MSComm1.InBufferCount)
InBuffor = MSComm1.Input
Finish = Timer ' Set end time.
MSComm1.PortOpen = False
J = 0
List1.Clear
Text6.Text = Str(Asc(Mid(InBuffor, Val(Text5.Text) * 2 + 4)))
Text7.Text = Str(Asc(Mid(InBuffor, Val(Text5.Text) * 2 + 5)))
CRC_16 InBuffor, (Val(Text5.Text) * 2 + 3)
Text1.Text = Str(CRC_High)
Text2.Text = Str(CRC_Low)
For i = 4 To Val(Text5.Text) * 2 + 3 Step 2
List1.AddItem "[" + Str(40000 + Val(Text4.Text) + J) + "] :" + Str((Asc(Mid(InBuffor, i, 1)) * CLng(256) + Asc(Mid(InBuffor, i + 1, 1))))
J = J + 1
Next i
mi dilema es querer reemplzar el mscomm por winsock
para mandar esa misma cadena por el puerto ethernet a una direccion ip
P.D. en cuanto lo termine lo posteo para que le sirva a alguien mas
