Oppure
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If InStr("0123456789", e.KeyChar) = 0 Then e.KeyChar = "" End If End Sub