Определить социальный статус по возрасту

Sub example_01()
Dim stroka As String
Dim Var1
 
Var1 = Application.InputBox( _
prompt:="Ââåäèòå âîçðàñò", _
Title:="Îïðåäåëåíèå ñîöèàëüíîãî ñòàòóñà", _
Type:=1)
If Not (TypeName(Var1) = "Boolean") Then
If Var1 > 60 Then
stroka = "ïåíñèîíåð"
Else
If Var1 > 22 Then
stroka = "ðàáî÷èé"
Else
If Var1 > 6 Then
stroka = "ó÷àùèéñÿ"
Else
If Var1 > 2 Then
stroka = "äîøêîëüíèê"
End If
End If
End If
MsgBox Var1 & " ëåò-ýòî" & stroka
Else
MsgBox "íå ââåäåíû äàííûå"
End If
End Sub

Sub example_01()
Dim stroka As String
Dim Var1
 
Var1 = Application.InputBox( _
prompt:="Введите возраст", _
Title:="Определение социального статуса", _
Type:=1)
If Not (TypeName(Var1) = "Boolean") Then
    If Var1 > 60 Then
        stroka = "пенсионер"
        ElseIf Var1 > 22 Then stroka = "рабочий"
        ElseIf Var1 > 6 Then stroka = "учащийся"
        ElseIf Var1 > 2 Then stroka = "дошкольник"
    End If
    MsgBox Var1 & " лет-это " & stroka
Else
    MsgBox "не введены данные"
End If
End Sub

Sub example_03()
    Dim stroka As String
    Dim Var1
 
    Var1 = Application.InputBox( _
           prompt:="Введите возраст", _
           Title:="Определение социального статуса", _
           Type:=1)
    If Not (TypeName(Var1) = "Boolean") Then
        Select Case Var1
        Case Is > 60: stroka = "пенсионер"
        Case Is > 22: stroka = "рабочий"
        Case Is > 6: stroka = "учащийся"
        Case Is > 2: stroka = "дошкольник"
        Case Else: stroka = "это кто вообще?"
        End Select
        MsgBox Var1 & " лет - это " & stroka
    Else
        MsgBox "не введены данные"
    End If
End Sub

Var1 = InputBox(prompt:="Введите возраст", _
           Title:="Определение социального статуса")