[ChrisGT7]

Καλησπέρα και καλή εβδομάδα Γιώργο,

Θεωρώ πως θα χρησιμοποιήσουμε το 2. της προηγούμενής μου δημοσίευσης, γιατί γεμίζεις το listbox με το βρόγχο For ... Next.

Στην υπορουτίνα UserForm_Initialize της UserForm1 έχεις τον παρακάτω κώδικα προς το τέλος της:

For i = 0 To ListBox1.ListCount - 1
ListBox1.List(i, 3) = Format(ListBox1.List(i, 3), "#,###0.00")
Next

Δοκίμασε να αντικαταστήσεις το 3 με 4 και το "#,###0.00" με "#,###0.00 €".

Ο λόγος που βάζουμε το 4 είναι γιατί οι στήλες στη λίστα σου είναι:

0: ΕΠΩΝΥΜΟ
1: ΟΝΟΜΑ
2: ΗΜΕΡ/ΝΙΑ
3: ΤΗΛ. ΚΙΝΗΤΟ
4: ΕΙΣΦΟΡΕΣ (€)