Problemer med formatering og beregning textbox i userform

Hej,

Jeg har lavet nedenstående koder som laver en udregning og samtidig formaterer talværdierne, således at tallene står pænt.

Men det fungerer ikke rigtigt. Det er ligesom om, at formateringen gør, at hvis beregningen er 7,45 så bliver der vist 745,00.

Håber at nogen kan hjælpe :-)

Hermed koden:
Det drejer sig om tre textbox som hedder:
- txtUdlægR1 (input)
- txtKursR1 (input)
- txtBeløbR1 (viser beregningen)

Private Sub txtUdlægR1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

If txtKursR1.Value = "" And txtUdlægR1.Value <> "" Then
    txtBeløbR1.Value = CDec(txtUdlægR1.Value)
    'sætformat 1
    adder
ElseIf txtKursR1.Value <> "" And txtUdlægR1.Value <> "" Then
    txtBeløbR1.Value = (CDec(txtUdlægR1.Value) * CDec(txtKursR1.Value)) / CDec(100)
    'sætformat 1
    adder
ElseIf txtUdlægR1.Value = "" Then
    txtBeløbR1.Value = CDec(0)
    'sætformat 1
    adder
End If
End Sub



Private Sub txtKursR1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

If txtKursR1.Value = "" And txtUdlægR1.Value <> "" Then
    txtBeløbR1.Value = CDec(txtUdlægR1.Value)
    'sætformat 1
    adder
ElseIf txtKursR1.Value <> "" And txtUdlægR1.Value <> "" Then
    txtBeløbR1.Value = (CLng(txtUdlægR1.Value) * CLng(txtKursR1.Value)) / CLng(100)
    'sætformat 1
    adder
End If
End Sub

Private Sub adder()
    Me.txtBeløbR1 = erUdfyldt(Me.txtBeløbR1)
Me.lblUdlægIAlt.Caption = Format(Application.Sum(CDec(txtBeløbR1.Value), CDec(txtBeløbR2.Value), osv.
end sub

Private Function erUdfyldt(tb As Control)
    If tb = "" Then
        erUdfyldt = 0 * 1
    Else
        erUdfyldt = tb
    End If
End Function

Private Sub sætformat(tbNr)
Dim cc As Object
    Set cc = UserForm2.Controls("txtBeløbR" & CStr(tbNr))
    cc.Value = Format(cc, "#,##0.00")
End Sub