Enter only Numbers and spaces into a textbox

[FRIEL]

i would like to be able to enter only numbers and spaces into a text box
i am already using this code

Private Sub TextBox2_Change()

    If Not IsNumeric(Right(TextBox2.Value, 1)) Then
        If Len(TextBox2.Value) = 0 Then
            TextBox2.Value = ""
        Else
            TextBox2.Value = Left(TextBox2.Value, Len(TextBox2.Value) - 1)
        End If
    End If

End Sub

but cant enter numbers after space

[dominicb]

Good afternoon FRIEL

How about something like this :

Private Sub TextBox2_Change()
If Not Right(TextBox2.Value, 1) = " " Then
If IsNumeric(Right(TextBox2.Value, 1)) = False Then
If Not Len(TextBox2.Value) = 0 Then
TextBox2.Value = Left(TextBox2.Value, Len(TextBox2.Value) - 1)
End If
End If
End If
End Sub

HTH

DominicB

[FRIEL]

MINT
thanks allot Dominic

[T-J]

i would like to be able to enter only numbers and spaces into a text box

Another way is directly checking the key pressed on the keyboard with the KeyPress event:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii <> Asc(" ") Then    'key is not a space
        If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then 'key is not a number
            KeyAscii = 0    'cancel keypress
        End If
    End If
End Sub