Thanks, Bob.

I changed the code a bit, now it works fine: (mb2 =label)

mb2.Caption = Range("Sheets3!Q3").Value
mb2.Caption = Format(mb2.Caption, "?0.00")

Gert-Jan

"Bob Phillips" schreef in bericht
...
Try this

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
textbox1.Text=format(textbox1.Text,"$0,00")
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Gert-Jan" wrote in message
...
In my database-sheet there are amounts, that can have one digit after the
comma (f.a. 540,7 or 540). In my userform I want these amounts shown as
$540,70 / $540,00. How can I do that?