Sub AStream_NewData (Buffer() As Byte)
Dim myResponse As String
myResponse = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
Log("Received: " & myResponse & " at " & DateTime.now)
Dim myID As Int
myID = Subs.Store_Response(myResponse)
Dim PausedIndex As Int
PausedIndex = Main.PausedList.IndexOf(myID)
If Main.PausedList.Size > 0 Then
If PausedIndex > -1 Then Main.PausedList.RemoveAt(PausedIndex)
Else
Log("Response [" & myResponse & "] could not be associated with a command being waited on")
End If
End Sub