Es posible usar esta estructura con case select?

[Shizuka]

Hola! bueno les cuento que tenía ya un código que funcionaba, pero cuando trato de insertar los datos a la bd me sale un error :/ Así que tuve que modificar el código, primero intenté con ifs anidados, pero era demasiado largo, y al final me quedó algo así usando case:

Bueno les comento que la colegiatura para nivel

maternal - 1250
preescolar - 1350
primaria - 1350

inscripciones
maternal - 1300
preescolar - 1500
primaria - 1500

Pero esto yo lo tengo almacenado en el form2 con textbox

Código:

Private Sub cmdCalcular_Click()
Dim colegiatura As Double
Dim modalidad As Double
Dim beca As Double
Dim cargos As Double
'''''''''''''''''''''''''''''''''''''Tipo de pago
Select Case cboTipopago.Text
Case "Inscripción"
    ''''''''''''''''''''''''''''''''''''''''Nivel
    Select Case cboNivel.Text
    Case "Maternal"
    colegiatura = Form2.Text4.Text
    Case "Preescolar"
    colegiatura = Form2.Text5.Text
    Case "Primaria"
    colegiatura = Form2.Text6.Text
    End Select
        ''''''''''''''''''''''''''''''''Modalidad
        Select Case cboModalidad.Text
        Case "Mensual"
        modalidad = colegiatura
        Case "Quincenal"
        modalidad = colegiatura / 2
        Case Else
        modalidad = colegiatura
        End Select
            '''''''''''''''''''''''''''''''''Beca
            Select Case cboBeca.Text
            Case "25%"
            beca = modalidad - (modalidad * 0.25)
            Case "50%"
            beca = modalidad - (modalidad * 0.5)
            Case "No beca"
            beca = modalidad
            End Select
            ''''''''''''''''''''''''''''''''Cargos
                Select Case cboCargos.Text
                Case "10%"
                cargos = beca + (beca * 0.1)
                Case "Sin recargos"
                cargos = beca
                End Select
Text1 = cargos
Case "Colegiatura"
    ''''''''''''''''''''''''''''''''''''''''Nivel
    Select Case cboNivel.Text
    Case "Maternal"
    colegiatura = Form2.Text1.Text
    Case "Preescolar"
    colegiatura = Form2.Text2.Text
    Case "Primaria"
    colegiatura = Form2.Text3.Text
    End Select
        ''''''''''''''''''''''''''''''''Modalidad
        Select Case cboModalidad.Text
        Case "Mensual"
        modalidad = colegiatura
        Case "Quincenal"
        modalidad = colegiatura / 2
        Case Else
        modalidad = colegiatura
        End Select
        Text1 = modalidad
            '''''''''''''''''''''''''''''''''Beca
            Select Case cboBeca.Text
            Case "25%"
            beca = modalidad - (modalidad * 0.25)
            Case "50%"
            beca = modalidad - (modalidad * 0.5)
            Case "No beca"
            beca = modalidad
            End Select
            ''''''''''''''''''''''''''''''''Cargos
                Select Case cboCargos.Text
                Case "10%"
                cargos = beca + (beca * 0.1)
                Case "Sin recargos"
                cargos = beca
                End Select
Text1 = cargos
Case "Abono"
Text1 = "Ingrese la cantidad a abonar"
End Select

Pero no se ejectuta correctamente, podrían decirme si es posible hacer eso que necesito con sólo estructuras case? Gracias de antemano.