Dim i As Integer
成都创新互联公司客户idc服务中心，提供成都多线服务器托管、成都服务器、成都主机托管、成都双线服务器等业务的一站式服务。通过各地的服务中心，我们向成都用户提供优质廉价的产品以及开放、透明、稳定、高性价比的服务，资深网络工程师在机房提供7*24小时标准级技术保障。
Dim max As Integer = 0
For i = 0 To ListBox1.Items.Count - 1
If Asc(ListBox1.Items(i)) Asc(ListBox1.Items(max)) Then
max = i
End If
Next
Label1.Text = ListBox1.Items(max) ‘将结果显示在一个标签上。
你可以用mid截取单个字符并用ASCII码判断：
n=asc(mid(str1,i,1))
if n0 and n255 then
'英文字母
else
'中文
end if
整个字符串你可以循环判断。
这是一个比较粗糙的范围，更加精准的判断：33-126为可打印的（即可显示的）英文字符，97-122为英文字母（小写），你可以根据字符串的实际内容来采用判断依据；负数是汉字（其实是最高位为1，VB识别为负数，转换成16进制就可以看到正确的编码了）
dim mbool as boolean=false
strTmp=strTmp.trinstart(0)//strTmp.trimstrart(0)这样的目的是把前面的0替换掉
if strTmp="" then
mbool=true
else
mbool=val(strTmp).tostring()=strTmp
end if