یه سئوال درمورد text box

[mohsen_iceman2000]

سلام دنبال یه کد می گردم که وقتی تو یه تکس باکس اگر عدد وارد شده اولش 09 نباشه ارور بده

مرسی

[mehran901]

:| خب دوست عزیز 2 رقم سمت چپ کدت رو چک کن!

Dim S$
S$ = val(text1)
if trim$(left$(S,2)) <> "09" then
call msgbox ("Error ",vbcritical + vbokonly ,"")
end if