Dim A As Integer
 
    A = CInt(DeineZahl) 'woher auch immer deine Zahl kommt
 
    Select Case A
        Case 10 To 20
            MsgBox "zwischen 10 und 20"
        Case Is > 30
            MsgBox "Ist mehr als 30"
        Case Else
            MsgBox "weder zwischen 10 und 20 noch mehr als 30"
    End Select