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:
codice:
Dim Quantità As Single

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