[VB6] Sommare numeri decimali

[basy82]

Come faccio a sommare due numeri decimali?

Usando questo codice..

Quantità = InputBox("Inserisci Quantità Acquistata")
Quantità = Format(Quantità, "###.##")
TxtMateriaPrima(3).Text = Format(TxtMateriaPrima(3).Text, "###.##") + Quantità

non funziona..
mi restituisce dei valori del tipo:32,1,5

( 32 sarebbe il valore del text box e 1.5 l'input box)

[Mabi]

La funzione restituisce un valore "errato" perchè non sa di operare con delle variabili numeriche ma lo fa considerandole stringhe, quindi le concatena (+).
Se tu dichiari Quantità come Single ad esempio (e non la lasci Variant) dovresti risolvere:

Dim Quantità As Single

Quantità = CSng(Format(InputBox("Inserisci Quantità Acquistata"), "###.##"))
TxtMateriaPrima(3).Text = CStr(CSng(TxtMateriaPrima(3).Text) + Quantità)

[basy82]

Grazie 1000 adesso funziona!!!!