Duda con if anidados

[Shizuka]

Gracias por las respuestas :) ya lo pude resolver con tu ayuda y viendo otras cosas en internet y quedó así:

Código vb:

Private Sub Text7_Click()
Select Case Combo1.Text
Case "Maternal"
'MsgBox "Maternal"
            num1 = "1250"
    If Combo3.Text = "Quincenal" Then
                num1 = num1 / 2
                If Combo5.Text = "25%" Then
                    porcentaje = num1 * 0.25
                    num1 = num1 - porcentaje
                    Text7 = num1
                Else
                If Combo5.Text = "50%" Then
                    porcentaje = num1 * 0.5
                    num1 = num1 - porcentaje
                    Text7 = num1
                End If
                End If
    Else
    If Combo3.Text = "Mensual" Then
                num1 = "1250"
                num1 = num1
                Text7 = num1
                If Combo5.Text = "25%" Then
                    porcentaje = num1 * 0.25
                    num1 = num1 - porcentaje
                    Text7 = num1
                Else
                If Combo5.Text = "50%" Then
                    porcentaje = num1 * 0.5
                    num1 = num1 - porcentaje
                    Text7 = num1
                End If
                End If
    End If
    End If
Case "Preescolar"
'MsgBox "Preescolar"
    num1 = "1350"
    If Combo3.Text = "Quincenal" Then
                num1 = num1 / 2
                If Combo5.Text = "25%" Then
                    porcentaje = num1 * 0.25
                    num1 = num1 - porcentaje
                    Text7 = num1
                Else
                If Combo5.Text = "50%" Then
                    porcentaje = num1 * 0.5
                    num1 = num1 - porcentaje
                    Text7 = num1
                End If
                End If
    Else
    If Combo3.Text = "Mensual" Then
                num1 = "1350"
                num1 = num1
                Text7 = num1
                If Combo5.Text = "25%" Then
                    porcentaje = num1 * 0.25
                    num1 = num1 - porcentaje
                    Text7 = num1
                Else
                If Combo5.Text = "50%" Then
                    porcentaje = num1 * 0.5
                    num1 = num1 - porcentaje
                    Text7 = num1
                End If
                End If
    End If
    End If
Case Else
'MsgBox "Primaria"
num1 = "1350"
    If Combo3.Text = "Quincenal" Then
                num1 = num1 / 2
                If Combo5.Text = "25%" Then
                    porcentaje = num1 * 0.25
                    num1 = num1 - porcentaje
                    Text7 = num1
                Else
                If Combo5.Text = "50%" Then
                    porcentaje = num1 * 0.5
                    num1 = num1 - porcentaje
                    Text7 = num1
                End If
                End If
    Else
    If Combo3.Text = "Mensual" Then
                num1 = "1350"
                num1 = num1
                Text7 = num1
                If Combo5.Text = "25%" Then
                    porcentaje = num1 * 0.25
                    num1 = num1 - porcentaje
                    Text7 = num1
                Else
                If Combo5.Text = "50%" Then
                    porcentaje = num1 * 0.5
                    num1 = num1 - porcentaje
                    Text7 = num1
                End If
                End If
    End If
    End If
End Select
End Sub
 

muchas gracias :)