Enter only Numbers and spaces into a textbox

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