Veja se é isto :

Private Sub TextBox1_Change()
    
    Dim sVlMaximo As Integer
    Dim sVlDigitado As Integer
    Dim sVlMinimo As Integer
    
    sVlMaximo = 4
    sVlMinimo = 1
    
    If TextBox1.Value = "" Then Exit Sub
    
    sVlDigitado = TextBox1.Value
    
    If sVlDigitado < sVlMinimo Or sVlDigitado > sVlMaximo Then
        
        MsgBox "Digite Numeros entre 1 e 4", vbCritical, "Verifica Numeros"
        
        TextBox1.Value = ""
    End If
    
    
End Sub

[]s

Mauro.
Show de bola. Deu certo.

Muito Obrigado