请教为何MSComm读取数据错误

请问为何MSComm读取数据异常
在使用MSComm控件时不知为何使用print可以显示所有内容，使用msgbox第一次点击只显示第一个字符，第二次点击虽然显示了所有内容但是第一个字符跑到最后去了，望各位高手替小弟解答

VB code

Private Sub MSComm1_OnComm()Dim Inbuff As StringDim i As Integer, n As Integer, t As VariantSelect Case MSComm1.CommEventCase comEvReceiveInbuff = MSComm1.Inputn = Len(Inbuff)For i = 1 To nt = t + Mid(Inbuff, i, 1)Next iEnd SelectMsgBox tEnd Sub