در مورد پیشنهاد اول کد زیر را امتحان کنید:

Private Sub Text1_Change()

If IsNumeric(Text1.Text) = False Then

Text1.Text = 0: MsgBox "شما باید از کاراکترهای عددی استفاده کنید"

End If

End Sub