Code 1

Il Codice che segue usa il metodo INSTR per controllare l'esclusivo input numerico.

Sub TextBox1_Change
If Instr("1234567890",Right(Textbox1.Text,1))=0 Then
TextBox1.Text = Left(TextBox1.Text,Len(TextBox1.Text)-1) 
TextBox1.selstart=Len(TextBox1.Text)
End If
End Sub

C'é unaltro modo di verificare se la stringa digitata è solo numerica ed avvisare l'utente dell'errore

if UCase(Text1.text)=LCase(Text1.text) then
 '---[go over to execute code]---
else
 msgbox "Numeric    input only allowed"
End if