if len(txbox)< 6 then exit sub
dim Nm as boolean
nm=false
dim cH as boolean
ch=false
for i =1 to len(txbox)
if isnumeric(mid(txbox,i,1)) =true then
nm=true
else
ch=true
end if
if nm=true and ch=true then exit for
next

if nm=false then
msgbox "ค่าที่กรอกไม่มีตัวเลข"
exit sub
elseif ch=false then
msgbox "ค่าที่กรอกมีแต่ตัวเลข ไม่มีอักขระอื่น"
exit sub
end if