'data is the bytes array
Dim start = -1, endPos = -1 As Int
For i = 0 To data.Length - 1
If data(i) = 0x2 Then
start = i
Else If data(i) = 0x3 Then
endPos = i
End If
Next
If endPos > start + 1 AND start > -1 Then
Dim s As String = BytesToString(data, start + 1, endPos - start - 1, "ASCII")
End If