Private Sub Calcular_Click()
Dim a As Integer
Dim i As integer
Dim b As Currency
Dim c As Currency
For i = 0 to 29
a = Val(Quantidade(i).Text)
b = VlrUnitario(i).Text 'O erro está nessa linha, nela não posso usar a função Val.
c = a * b
next i
Edição feita por: brunoschuina, 22/03/2010, 15:45.










