Sub astreammedia_NewData (Buffer() As Byte)
If sendingAudio = False Then
Dim msg As String
msg = BytesToString(Buffer, 0, Buffer.Length, "UTF-8")
If msg <> "200" Then
audioStream.Write(Buffer)
Else
ToastMessageShow("Worked",False)
End If
End If
End Sub