Type mismatch

[Manuweb]

Salve a tutti.
Ho un errore type mismatch sulla riga

Totale = Totale + CDbl(txtImponibile(I).Text) * CInt(txtQuantita(I).Text)

quando cerco di aprire il form.
Se commento il pezzo di codice del ciclo for, e una volta entrato nel form tolgo il commento e chiamo la funzione CalcolaTotali, tutto funziona.A cosa è dovuto l'errore?

Private Sub CalcolaTotali()
    Dim I As Integer
    Dim Totale As Double
    Dim IVA As Double
    Dim TotaleIVATO As Double
    
    For I = 0 To 9
        Totale = Totale + CDbl(txtImponibile(I).Text) * CInt(txtQuantita(I).Text)
    Next I
    IVA = Totale * 20 / 100
    TotaleIVATO = Totale * 1.2
    
    Me.txtTotaleImponibile = Totale
    Me.txtIVA = IVA
    Me.txtTotaleIvato = TotaleIVATO
    
End Sub

[sebamix]

Puo' essere che i due textbox non sono inizializzati (sono cioe' vuoti)

[DeBe99]

probabilmente txtImponibile(I).Text o txtQuantita(I).Text non contengono valori numerici o sono vuoti. Fai un controllo:

if isnumeric(txtImponibile(I).Text) and isnumeric(txtQuantita(I).Text) then
   Totale = Totale + CDbl(txtImponibile(I).Text) * CInt(txtQuantita(I).Text)
else
'non numerico
end if

[Manuweb]

I textbox contenevano come text 0.
Ho fatto come mi ha detto DeBee e va tutto ok.
Grazie ragazzi
ciao