Android Question A question for fellow B4A socket programmers and the wonderful Erel

Sub Activity_Create(FirstTime As Boolean)
    Socket1.Initialize("Socket1")
    Socket1.Connect("alt4.gmail-smtp-in.l.google.com",25,40000) '"whois-check.ausregistry.net.au" , 43, 20000)
End Sub

Sub Socket1_Connected (Successful As Boolean)
    If Successful = False Then
        Msgbox(LastException.Message, "Error connecting")
        Return
    End If
    Dim tr As TextReader
    Dim tw As TextWriter
    tr.Initialize2(Socket1.InputStream,"UTF8")
    tw.Initialize2(Socket1.OutputStream,"UTF8")
    Do Until tr.IsInitialized
    DoEvents
    Loop
   
    DoEvents
    Do Until tw.IsInitialized
    DoEvents
    Loop

    DoEvents
     Dim sb As StringBuilder
    sb.Initialize
    Do Until sb.IsInitialized
    DoEvents
    Loop
    Do Until tr.Ready
    DoEvents
    Loop
   
    sb.Append(CRLF).Append(tr.Readall)
    Do While tr.Ready
        sb.Append(CRLF).Append(tr.Readall)
    Loop
    Msgbox (sb.ToString ,"")
    Socket1.Close
End Sub

Sub Process_Globals
   Private socket1 As Socket
   Private astream As AsyncStreams
End Sub

Sub Globals

End Sub

Sub Activity_Create(FirstTime As Boolean)
   If FirstTime Then
     socket1.Initialize("socket1")
     socket1.Connect("alt4.gmail-smtp-in.l.google.com",25,40000)
   End If
End Sub

Sub Socket1_Connected (Successful As Boolean)
   If Successful Then
     Log("Connected!")
     astream.Initialize(socket1.InputStream, socket1.OutputStream, "astream")
   Else
     Log("error connecting: " & LastException)
   End If
End Sub

Sub AStream_NewData (Buffer() As Byte)
   Dim str As String = BytesToString(buffer, 0, buffer.Length, "utf8")
   Log(str)
End Sub

Sub AStream_Error
   Log("Connection error")
End Sub

Sub AStream_Terminated
   Log("Disconneted")
End Sub