allow numbers only in text box

[-Fly]

you can try an isnumeric statement
I hope this is right its been a while since I've used this statement, and I don't have vb installed on this computer so I don't know if this works, but it should

Private Sub Text1_Change()
If IsNumeric(Text1.Text) = False Then
MsgBox "only numbers are supported"
End If
End Sub