Dudas con if

[Shizuka]

Bueno ya hice unas modificaciones, podrías por favor darle un vistazo a mi código si no es mucha molestía?

Código vb:

Private Sub Command1_Click()
Dim ValBeca As Double
Dim opBeca As Double
Dim ins As Double
Dim insbeca As Double
ValBeca = 0.5
If Combo7.Text = "Colegiatura" Then
Mat = Form24.Text1.Text: Pre = Form24.Text2.Text: Pri = Form24.Text3.Text
If opBeca Then Mat = Form24.Text1.Text * ValBeca: Pre = Form24.Text2.Text * ValBeca: Pri = Form24.Text3.Text * ValBeca
Select Case Combo1.Text
   Case "Maternal":  miValor = Mat
   Case "Preescolar":  miValor = Pre
   Case "Primaria":  miValor = Pri
End Select
If Combo3.Text = "Quincenal" Then miValor = miValor / 2
If Combo3.Text = "Mensual" Then miValor = miValor
'If Combo3.Text = "Abono" Then miValor = Text7
If Combo5.Text = "25%" Then miValor = miValor - (miValor * 0.25)
If Combo5.Text = "50%" Then miValor = miValor - (miValor * 0.5)
If Combo5.Text = "No beca" Then miValor = miValor
If Combo6.Text = "10%" Then miValor = miValor + (miValor * 0.1)
Text7 = miValor
Else
If Combo7.Text = "Inscripción" Then
Insm = Form24.Text6.Text: Inspre = Form24.Text5.Text: Inspri = Form24.Text4.Text
If insbeca Then imat = Form24.Text6.Text * insbeca: Inspre = Form24.Text5.Text * insbeca: Inspri = Form24.Text4.Text * ins
Select Case Combo1.Text
   Case "Maternal":  miValor = Insm
   Case "Preescolar":  miValor = Inspre
   Case "Primaria":  miValor = Inspri
End Select
If Combo3.Text = "Quincenal" Then miValor = miValor / 2
If Combo3.Text = "Mensual" Then miValor = miValor
'If Combo3.Text = "Abono" Then miValor = Text7
If Combo5.Text = "25%" Then miValor = miValor - (miValor * 0.25)
If Combo5.Text = "50%" Then miValor = miValor - (miValor * 0.5)
If Combo5.Text = "No beca" Then miValor = miValor
If Combo6.Text = "10%" Then miValor = miValor + (miValor * 0.1)
Text7 = miValor
End If
End If
 
 
 
 
'abono
If Combo3.Text = "Abono de colegiatura" Then
Mat = Form24.Text1.Text: Pre = Form24.Text2.Text: Pri = Form24.Text3.Text
If opBeca Then Mat = Form24.Text1.Text * ValBeca: Pre = Form24.Text2.Text * ValBeca: Pri = Form24.Text3.Text * ValBeca
Select Case Combo1.Text
   Case "Maternal":  miValor = Mat
   Case "Preescolar":  miValor = Pre
   Case "Primaria":  miValor = Pri
End Select
If Combo3.Text = "Quincenal" Then miValor = miValor / 2
If Combo3.Text = "Mensual" Then miValor = miValor
If Combo3.Text = "Abono" Then miValor = Text7
If Combo5.Text = "25%" Then miValor = miValor - (miValor * 0.25)
If Combo5.Text = "50%" Then miValor = miValor - (miValor * 0.5)
If Combo5.Text = "No beca" Then miValor = miValor
If Combo6.Text = "10%" Then miValor = miValor + (miValor * 0.1)
Text7 = miValor
'Text3 = Text7 - Text1
Else
If Combo3.Text = "Abono de inscripción" Then
Insm = Form24.Text6.Text: Inspre = Form24.Text5.Text: Inspri = Form24.Text4.Text
If insbeca Then imat = Form24.Text6.Text * insbeca: Inspre = Form24.Text5.Text * insbeca: Inspri = Form24.Text4.Text * ins
Select Case Combo1.Text
   Case "Maternal":  miValor = Insm
   Case "Preescolar":  miValor = Inspre
   Case "Primaria":  miValor = Inspri
End Select
If Combo3.Text = "Quincenal" Then miValor = miValor / 2
If Combo3.Text = "Mensual" Then miValor = miValor
If Combo5.Text = "25%" Then miValor = miValor - (miValor * 0.25)
If Combo5.Text = "50%" Then miValor = miValor - (miValor * 0.5)
If Combo5.Text = "No beca" Then miValor = miValor
If Combo6.Text = "10%" Then miValor = miValor + (miValor * 0.1)
Text7 = miValor
'Text3 = Text7 - Text1
End If
End If
End Sub