WINSOCK ENVIANDO CARACTERES ERRADOS

  
Private Sub form_load ()
sckView.LocalPort = 3030
sckView.Listen

end sub

Private Sub sckView_ConnectionRequest(ByVal requestID As Long)
sckView.Close
sckView.Accept requestID

End Sub

Private Sub EnviaTexto (Texto as String)
sckview.sendata Texto
end sub
 

 
Private Sub btnConectar_Click()
Winsock1(0).Close
Winsock1(0).RemoteHost = [Ô]192.168.1.101[Ô]
Winsock1(0).RemotePort = 3030
Winsock1(0).Connect

Do While Winsock1(0).State <> sckConnected
    DoEvents: DoEvents: DoEvents: DoEvents: DoEvents
    If Winsock1(0).State = sckError Then
        MsgBox Winsock1(0).State & [Ô] - Erro ao Conectar[Ô]
        Exit Sub
    End If
Loop

MsgBox [Ô]CONECTADO [Ô] & Winsock1(0).State

End Sub

Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim vlString

Winsock1(Index).GetData vlString

lstCupom.AddItem vlString

End Sub