Does anyone know how to fix this to show the result within the textbox like this: "0.00"
Right now, it appears like this: "252525."
I'm new to VBA and am trying to piece this together properly...
Everything seems to work great - except for this format problem...
Thanks! ChrisCode:Sub MyCalcQu() If IsNumeric(TextBox7.Text) Then If IsNumeric(TextBox8.Text) Then If IsNumeric(TextBox13.Text) Then TextBox3.Value = CDbl(TextBox7.Value) + CDbl(TextBox8.Value) + CDbl(TextBox13.Value) 'format the contents of the TextBox3 result TextBox3.Value = Format(TextBox7.Value + TextBox8.Value + TextBox13.Value, "0.00") End If End If End If End Sub Private Sub TextBox7_Change() MyCalcQu End Sub Private Sub TextBox8_Change() MyCalcQu End Sub Private Sub TextBox13_Change() MyCalcQu End Sub




Reply With Quote