complete the program.

Dim strAge as String
Dim intAge as ......

StrAge=InputBox("How old are you?", "Age ask")

If(strAge="") Then
............ 'Terminates the application
End If

IntAge=Val(strAge)

Do.........((IntAge<1)or(intAge>99))
MsgBox "Age is between 1 and 99",
vbExclamation, "Error!"

StrAge=.........("How old are you?",
"Age Ask"),

If(strAge="") Then
........... 'Terminates the
application
End If
........... 'End the Do section

IntAge=Val(strAge)
........... Case IntAge
Case1..........6
Label1.Caption="You are under 7
years old."
Case7,8,9,10
Label1.Caption="You are under 11
years old."
Case Else
Label1.Caption="You are over 10
years old."
End...........