Dim n, k As Integer
Dim info As String
n = Val(TxtLet.Text)
'определим текстовую запись возраста
If n >= 10 And n <= 20 Then
info = "лет"
Else
k = n Mod 10
Select Case k
Case 1
info = "год"
Case 2, 3, 4
info = "года"
Case Else
info = "лет"
End Select
End If
LblLet.Caption = info
'определим род деятельности
Select Case n
Case Is < 7
info = "детский сад"
Case 7 To 16
info = "учеба в школе"
Case 17 To 21
info = "учеба в ВУЗе"
Case 22 To 55
info = "трудовая деятельность"
Case Else
info = "заслуженный отдых - пенсия"
End Select
LblInfo.Caption = info