Enter only Numbers and spaces into a textbox

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