podmínka - Select - Case




Dim Vek As Byte
Dim Jmeno As String
Dim Roky As String

Private Sub CommandButton1_Click()
End Sub