Sum af TextBox i Userform

Hej.....
Jeg har en Userform, hvor brugeren skal kunne registrere forskellige informationer.I Userformen er der to TextBox, som skal summe nogle værdier, som er anført i nogle ovenstående TextBox.

I TextBox 4, 5 og 6 skal brugeren anføre nogle talværdier.
I TextBox 7, skal summen af TextBox 4 og 5 vises.
TextBox 8 skal vise den talværdi som er anført i TextBox 6.

Mit problem består i, at når man taster en talværdi (i TextBox 4, 5 og 6) som er lig eller større end 1.000, så vise TextBox 7 og 8 1,00 frem for 1.000,00.

Jeg har lavet følgende koder:

Kode vedr. TextBox7:
Private Sub TextBox4_Change()
Dim dTotal As Double
    Const NumFmt As String = " #,##0.00"
    With Me
    dTotal = Val(.TextBox4.Value) + Val(.TextBox5.Value)
    Me.TextBox7.Value = Format(dTotal, NumFmt)
End With
End Sub

Private Sub TextBox5_Change()
Dim dTotal As Double
    Const NumFmt As String = " #,##0.00"
    With Me
    dTotal = Val(.TextBox4.Value) + Val(.TextBox5.Value)
    Me.TextBox7.Value = Format(dTotal, NumFmt)
End With
End Sub

Kode vedr. TextBox8:
Private Sub TextBox6_Change()
Dim dTotal As Double
    Const NumFmt As String = " #,##0.00"
    With Me
    dTotal = Val(.TextBox6.Value)
    Me.TextBox8.Value = Format(dTotal, NumFmt)
End With
End Sub

Det skal bemærkes at de enkelte TextBox indeholder følgende kode:

Private Sub TextBox5_Exit(ByVal Cancel As _
MSForms.ReturnBoolean)
If IsNumeric(TextBox5.Value) Then
TextBox5.Value = Format(CDbl(TextBox5.Value), " #,##0.00")
End If
End Sub

På forhånd tak for hjælpen

/Jacob