小吳 VBQA 程式設計討論

我用VB寫了小程式去讀GPS從COM6傳來的資料
我想從一堆資料裡面擷取相同的某一段
把逗號之間的字串拆開
依序放到15個txtbox裡面
但是寫到一半覺得怪怪的，能否請各位先進指導! 謝謝!
程式碼如下：
Dim buf$, ReceiveStr$, InStr$, StrPos$
Dim ReceiveData!(12)
Dim Text!(12)
L01:
buf = Trim(MSComm1.Input)
If InStr(1, buf, "!") ＞ 1 Then
　　ReceiveStr = ReceiveStr + buf

Else
　　　　Do
　　　　　　StrPos = InStr(1, ReceiveStr, ",")
　　　　　　If StrPos = 0 Then Exit Do
　　　　　　ReceiveData(i) = Str(Left(ReceiveStr, StrPos - 1))
　　　　　　ReceiveStr = Right(ReceiveStr, Len(ReceiveStr) - InStr(1, ReceiveStr, ","))
　　　　Loop

End If