left函数能用，right函数不能用了

[剧小白]

VB 中想根据字符串首尾两个字符来判断是否为我想要的数据，今天突然tight不能用了
我用两个文本框，显示提取的第一个和最后一个字符，结果第一个提取出来了，最后一个提取不出来
程序如下

Private Sub Winsockserver_DataArrival(ByVal bytesTotal As Long) '接收到数据的函数
Dim tmpstr As String
Winsockserver.GetData tmpstr
Text3.Text = Left(tmpstr, 1)
Text2.Text = Right(tmpstr, 1)
textget.Text = tmpstr
If Left(tmpstr, 1) = "@" And Right(tmpstr, 1) = "#" Then
Text1.Text = Mid(tmpstr, 2, 5)

End If
End Sub

[剧小白]

正常情况下能用，用wincock建立服务器，通过GPRS模块向VB发程序，结果right函数不好用了

[qq_30144223]

debug一下看看right(tmpstr,1)是多少,然后len(right(tmpstr,1)看看是否大于0 如果是 说明你定义的tmpstr的长度比你实际得到的数据长度长,, 有可能你取到的只是一个空格....

[Tiger_Zhao]

Debug.Print Len(tmpstr), "|" & tempstr & "|"

检查下接受到数据，可能末尾有其它内容。

[VBAdvisor]

try to use: VBA.Right

[剧小白]

感谢各位的回答，谢谢

[东方之珠]

引用 3 楼 Tiger_Zhao 的回复:

Debug.Print Len(tmpstr), "|" & tempstr & "|"

检查下接受到数据，可能末尾有其它内容。

同意,接收到的数据很可能包含其他数据.