podmínka - Select - Case
Dim Vek As Byte
Dim Jmeno As String
Dim Roky As String
Private Sub CommandButton1_Click()
Jmeno = InputBox ("jak se jmenuješ", "osobní údaje", "nevím")
Vek = InputBox ("kolik ti je let", "osobní", "20")
Select Case Vek
Case Is = 1
Roky = "rok"
Case Is = 2, 3, 4
Roky = "roky"
Case Is > 4
Roky = "let"
End Select
MsgBox "Jmenuješ se" & Jmeno & " a jsi" & Vek & " " & Roky & " starý", , vbInformation, "Kdo jsi"
End Sub