Private Sub Command1_Click()
    meinwert = Val(Text1.Text)
    Text1.Text = meinwert
    If meinwert >= -10 And meinwert <= 10 And meinwert <> 0 Then
        MsgBox "braver junge!"
    Else
        MsgBox "hey! nur werte von -10 bis 10!"
    End If
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...