Duda con if anidados

[Shizuka]

Muchas gracias por la respuesta, si habìa pensado en eso, pero es posible agregar estructuras if dentro de un select case?

es que lo hago asì: y me sale error de que case sin select case

Código vb:

Private Sub Text7_Click()
Dim num1 As Double
Dim porcentaje As Double
Select Case Combo3.Text
Case "Quincenal"
  
    If Combo3.Text = "Quincenal" Then
            num1 = "1250"
            num1 = num1 / 2
            Text7 = num1
                If Combo5.Text = "25%" Then
                porcentaje = num1 * 0.25
                num1 = num1 - porcentaje
                Text7 = num1
                Else: Combo5.Text = "50%"
                porcentaje = num1 * 0.5
                num1 = num1 - porcentaje
                Text7 = num1
                End If
    Else: Combo3.Text = "Mensual"
            num1 = "1250"
            num1 = num1
            Text7 = num1
                If Combo5.Text = "25%" Then
                porcentaje = num1 * 0.25
                num1 = num1 - porcentaje
                Text7 = num1
                Else: Combo5.Text = "50%"
                porcentaje = num1 * 0.5
                num1 = num1 - porcentaje
                Text7 = num1
                End If
Case "Preescolar"
 If Combo3.Text = "Quincenal" Then
            num1 = "1350"
            num1 = num1 / 2
            Text7 = num1
                If Combo5.Text = "25%" Then
                porcentaje = num1 * 0.25
                num1 = num1 - porcentaje
                Text7 = num1
                Else: Combo5.Text = "50%"
                porcentaje = num1 * 0.5
                num1 = num1 - porcentaje
                Text7 = num1
                End If
    Else: Combo3.Text = "Mensual"
            num1 = "1350"
            num1 = num1
            Text7 = num1
                If Combo5.Text = "25%" Then
                porcentaje = num1 * 0.25
                num1 = num1 - porcentaje
                Text7 = num1
                Else: Combo5.Text = "50%"
                porcentaje = num1 * 0.5
                num1 = num1 - porcentaje
                Text7 = num1
                End If
End Select
End Sub