Выполнить проект, который определяет, является ли человек пенсионером

Option Explicit
Dim Pol As Integer, Vozrast As Single, Stage As Single, Pens As Boolean
Private Sub Command1_Click()
 Pol = MsgBox("Мужчина?", vbQuestion + vbYesNo, "Пол")
 Vozrast = InputBox("Возраст", , 56)
 Stage = InputBox("Стаж", , 24)
 Select Case Stage
  Case Is >= 25 Or Vozrast >= 60: Pens = True
  Case Is < 25 And Vozrast >= 55 And Pol = 7: Pens = True
  Case Else: Pens = False
End Select
If Pens Then MsgBox "Пенсионер", vbYes Else MsgBox "Не пенсионер", vbYes
End Sub

Option Explicit
Option Compare Text
Dim Pols As String, М As String, Ж As String
Dim Pol As Boolean, Vozrast As Single, Stage As Single, Pens As Boolean
Private Sub Command1_Click()
 Pols = InputBox("Пол", , "М")
 If Pols = "М" Then Pol = True Else Pol = False
 Vozrast = InputBox("Возраст", , 56)
 Stage = InputBox("Стаж", , 24)
 Pens = False
 If Stage >= 25 Or Vozrast >= 60 Or Vozrast >= 55 And Pol = False Then Pens = True
 If Pens Then MsgBox "Пенсионер", vbYes Else MsgBox "Не пенсионер", vbYes
End Sub