请教：VB文本框中检查全角字符如何实现

[pat_pat]

检查VB的文本框中是否含有全角字符，如果有提示用户改为半角字符，
这在VB中应该怎样实现？？（解答最好稍微详细一点，新手=_=）

[用户 昵称]

弄一个全角字符字典，比如

dim dic as string

dic = "，。：？"

for i = 1 to len( dic )
if instr( 1, text1.txt, mid( dic, i, 1 ) ) then
msgbox "有全角字符"
endif
next i

稍经改动还可以知道全角字符的具体位置。

[用户 昵称]

dim dic as string 

dic = "，。：？" 

for i = 1 to len( dic ) 
    if instr( 1, text1.txt, mid( dic, i, 1 ) ) then 
       msgbox "有全角字符" 
    endif 
next i