Might want to modify that change event some, the Msgbox can pop up twice and you loose everything you already had if you do enter a character.

Hows This?
Code:
Private Sub Text1_Change()
    Static LastGood As String
    
    If Len(Text1) > 0 Then
        If Not IsNumeric(Text1.Text) Then
           MsgBox "Only Numbers Are Allowed"
           Text1.Text = LastGood
           Text1.SelStart = Len(LastGood)
           Exit Sub
        Else
            LastGood = Text1.Text
        End If
    Else
        LastGood = ""
    End If
End Sub