Android Question Write bytes to Network Problem

Sub Process_Globals

      Dim BS As Socket
      Dim out As OutputStream
      Dim Header As String = Chr(255) & Chr(254)& "Blista->" & Chr(255) & Chr (254)
      Dim Bconv As ByteConverter
    Dim Buffer(12) As Byte         
End Sub

Sub Globals
End Sub

Sub Activity_Create(FirstTime As Boolean)
 
    BS.Initialize("Socket1")
    BS.Connect("192.168.1.95", 8889, 0)

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub Socket1_Connected (Successful As Boolean)
    If Successful = False Then
        Msgbox(LastException.Message, "Error connecting")
        Return   
    End If
    ToastMessageShow("Connected successfully", False)
  out.InitializeToBytesArray(12) 
    Buffer=Bconv.StringToBytes(Header,"ASCII")
    out.WriteBytes(Buffer,0,12)
    Log(Header)
  out.Flush
  BS.Close
End Sub