Quote:
Me.rtbReceived.Text &= [text]
Dim fine As String = Mid([text], 7, 3)
Dim list As Integer = ListBox3.Items.Add(fine)
The problem is you are adding to the list while the text box string might be still incomplete (you are building it incrementally).
You have to first check if the received string is complete and then extract the substring.