Android Question [ SOLVED ] TCPIP how connect Pos cash register using lan port

Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.
   Dim BC As ByteConverter
   Dim Socket1  As Socket
   Dim AStreams As AsyncStreams
End Sub

Sub Activity_Create(FirstTime As Boolean)
   'Do not forget to load the layout file created with the visual designer. For example:
   'Activity.LoadLayout("Layout1")
   Socket1.Initialize("Socket1")
   Socket1.Connect("192.168.1.123" ,1126,2000)
End Sub

Sub Socket1_Connected (Successful As Boolean)
   If (Successful) Then
       AStreams.Initialize(Socket1.InputStream, Socket1.OutputStream,"AStreams")
       ToastMessageShow("connected",False)
       Dim cmd As String ="1F"
       Dim bytes() As Byte
       bytes=BC.StringToBytes(cmd,"UTF8")      
       AStreams.Write(bytes)
   Else
       Msgbox(LastException.Message, "Error connecting")
       Socket1.Close
   End If
End Sub

         socket1.Initialize("socket1")      
        'Connect Host / Port
        socket1.Connect(Host, Port, 200)
        Wait For (socket1) Socket1_Connected (Successful As Boolean)
        If (Successful) Then
            Try
                AStreams.Initialize(socket1.InputStream, socket1.OutputStream, "AStreams")
                Wait For (AStreams) AStreams_NewData (Buffer() As Byte)
                Log("AStreams inizializzata")
                Dim msg As String
                msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
                .......