Visual Basic - COMO PROGRAMAR

Dim AnoTecleado     As String

    Dim AnoNacimiento As Integer

    Dim Clasificacion As String

    AnoTecleado = InputBox("Teclea el Año que quieres clasificar", "Clasifica por Años", 0)

    If IsNumeric(AnoTecleado) = True Then

        AnoNacimiento = CInt(AnoTecleado)

    Else

        Exit Sub

    End If

    Select Case (Year(Date) - AnoNacimiento)

        Case Is < 11

            Clasificacion = "Menores"

        Case 12 To 15

            Clasificacion = "Cadetes"

        Case 16 To 20

            Clasificacion = "Juveniles"

        Case 21 To 40

            Clasificacion = "Mayores"

        Case Is > 40

            Clasificacion = "Veteranos"

    End Select

    MsgBox vbCrLf & vbCrLf & _

           "Año Nacimiento:" & Format(AnoNacimiento) & vbCrLf & _

           "La Clasificación para: " & Format(Year(Date) - AnoNacimiento) & " es: " & Clasificacion & _

           vbCrLf & vbCrLf, vbInformation, "Clasifica segun Años"