如何判断winsock发送的数据是数字还是字符

怎么判断winsock发送的数据是数字还是字符
VB code
Private Sub winsock1_DataArrival(ByVal bytestotal As Long)
dim str as string
If IsNumeric(STR) Then
print str
end if
end sub

可是发送的是数字的时候,好像不执行print啊,这是怎么回事呢

------解决方案--------------------
看发送与接收的变量定义。