B4J Question GPS - tcp connection

Sub Process_Globals
     Dim AStreams As AsyncStreams
    Dim Server As ServerSocket
    Dim Socket1 As Socket
End Sub

Sub AppStart (Args() As String)

        Server.Initialize(8888, "Server")
        Server.Listen
        Log("MyIp = " & Server.GetMyIP)
  StartMessageLoop
  
End Sub

Sub Server_NewConnection (Successful As Boolean, NewSocket As Socket)
    Log("New connection")
    If Successful Then
        Log("Connected")
        Socket1 = NewSocket
     '   AStreams.InitializePrefix(Socket1.InputStream, False, Socket1.OutputStream, "AStreams")
        AStreams.Initialize(Socket1.InputStream,  Socket1.OutputStream, "AStreams" )
    Else
        Log(LastException.Message)
    End If
    Server.Listen
End Sub

Sub AStreams_NewData (Buffer() As Byte)
    Dim msg As String
    msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
   
    Log(msg)
End Sub

APN123456 internet.movistar.com.ec movistar movistar

APN,CONFIG OK

adminip123456 121.201.110.210 8989

ADMINIP,CONFIG OK

GPRS123456 1

GPRS,CONFIG OK