I hope someone can help me. I'm using this code:

<code>
Dim exkl As Single
Dim inkl As Single
Dim euro As Single
Dim gesamt As Single
Dim zinsen As Single
Dim mwst As Single
Dim zwischensumme As Single
inkl = CSng(Form5.Text16.Text)
exkl = inkl - ust
exkl = Format(exkl, "##,##0.00")
zinsen = (inkl / 100) * 12
mwst = ((inkl + zinsen) / 100) * 20
gesamt = inkl + zinsen + mwst + 130
euro = (inkl + zinsen + 130) / 13.7603
zwischensumme = inkl + 130
zwischensumme = CSng(zwischensumme)
gesamt = Format(gesamt, "##,##0.00")
euro = Format(euro, "##,##0.00")
mwst = Format(mwst, "##,##0.00")
inkl = Format(inkl, "##,##0.00")
zinsen = Format(zinsen, "##,##00.00")
zwischensumme = Format(zwischensumme, "##,##0.00")
</code>

For example: Form5.Text16.Text = "200", zinsen should be 24,00 and gesamt should be 398,80 but I just get 24 for zinsen and 398,8 for gesamt.

How can i change it to this "##,##0.00" Format?

please help me