Opgelost format waardes in regel van een messagebox

[antonl007]

Gents,

Mbv. onderstaande regels presenteer ik via een messagebox de waardes zoals in het bijgevoegde jpg bestand te zien is.

myData = myRange.Value

For x = 1 To UBound(myData, 1)
myStr = myStr & myData(x, 1) & vbTab & myData(x, 2) & vbTab & myData(x, 3) & vbTab & myData(x, 4) & vbCrLf
Next x

MsgBox myStr, vbMsgBoxleft, "Opbouw enkelvoudige/samengestelde rente"

End Sub

Mijn vraag is: kan ik de gepresenteerde waardes een normale format geven zoals bijv. het bedrag in euro's dus bijv. € 100.000 ipv 100000?

bijv. dank en een goed weekend!
anton

 

[edmoor]

Je noemde het zelf al
Kijk eens naar de Format functie.
Bijvoorbeeld:

MsgBox Format(100000, "Currency")

Zie:
https://www.excelfunctions.net/vba-format-function.html

 

[antonl007]

idd,

myData(x, 3) = FormatCurrency(hellup1, 0)

waarbij hellup1 dan een hulpveldje met Dim as Currency is (omdat Mydata een soort van tekststring is?).

wederom hartelijk dank!

grr, a