Equation Miscaculation

[hmk]

Hi there
When I put this formating to the value of TextBoxs,

Gtot.Value = Format(Gtot.Value, "#,##0.000")
tot.Value = Format(tot.Value, "#,##0.000")
bal.Value = Format(bal.Value, "#,##0.000")

However, when i cancel the formating then the equation gives correct result but with no comma nor period.....which are realy needed

Then the result of this line is always 1 or not correct

bal.Value = val(Gtot.Value) - val(tot.Value)

How can get the correct result out of equation ?

The whole code:

Private Sub cmdAdd_Click()

MyCalc
tot.Value = ""

End Sub

Private Sub bal_Change()
bal.Value = Format(bal.Value, "#,##0")
End Sub

Private Sub tot_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'tot.Value = Format(tot.Value, "#,##0.000")
    With Me.ActiveControl
        If Not IsNumeric(.Value) And .Value <> vbNullString Then
            MsgBox "Sorry, only numbers allowed"
            .Value = vbNullString
        ElseIf Left(.Value, 1) = "-" And IsNumeric(Left(.Value, 2)) Then
            Exit Sub
        End If
    End With
End Sub

Private Sub Gtot_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Gtot.Value = Format(Gtot.Value, "#,##0.000")
    With Me.ActiveControl
        If Not IsNumeric(.Value) And .Value <> vbNullString Then
            MsgBox "Sorry, only numbers allowed"
            .Value = vbNullString
        ElseIf Left(.Value, 1) = "-" And IsNumeric(Left(.Value, 2)) Then
            Exit Sub
        End If
    End With
End Sub

Sub MyCalc()
If tot.Value = "" Then Exit Sub

If tot.Value <> 0 Then
bal.Value = val(Gtot.Value) - val(tot.Value)
    Exit Sub
End If

End Sub

 

[BrianB]

This seems to work correctly :-

Private Sub CommandButton1_Click()
    gtot.Value = Format(gtot.Value, "#,##0.000")
    tot.Value = Format(tot.Value, "#,##0.000")
    '---------------------------------------------
    bal.Value = CDbl(gtot.Value) - CDbl(tot.Value)
    bal.Value = Format(bal.Value, "#,##0.000")
End Sub