vba 2010: formattazione numerica label

[karug64]

Salve a tutti.
Nel mio codice ho queste linee:

Codice: Seleziona tutto

t_pres = t_pres + fido
    DoEvents
    UserForm1.tt_pres.Caption = Format(Str(t_pres), "0,000.00")
    saldo = CDbl(Mid(testo1, 91, 9) + "," + Mid(testo1, 100, 3))
    DoEvents
    If saldo < 0 Then u_pres = u_pres + Abs(saldo)
    UserForm1.uu_pres.Caption = Format(Str(u_pres), "0,000.00")

ma non capisco perche' se t_pres = 50000,00 e u_pres=56.914,40 in tt_pres.caption ottengo, giustamente, 50.000,00 mentre in uu_pres.caption ho 569.114,00.
Ho provato anche con la formattazione "#,##0.00" ma il risultato è sempre lo stesso.

Grazie

[Anthony47]

Non capisco perche' vuoi applicare una formattazione di tipo numerico ("0,000.00") ma invece di applicarla direttamente a un numero (t_pres e u_pres sono numeri, vero?) la applichi a una stringa (quella ottenuta con Str(t_pres) ad esempio)
Quindi prova con

Codice: Seleziona tutto

   UserForm1.tt_pres.Caption = Format(t_pres, "0,000.00")

Ciao