Formating Active X Text Box

[AJMiveld]

Hello All

i am hoping someone can help me in regards to formatting an active X textbox automatically with VBA

I am using the following formula (Among Others) to sum together 3 text boxes
I would like both the input and output text boxes to be formatted to a number/currency
I also have some other Active X text boxes that i would like formatted to %

On Error Resume Next
N = 1 / 0 ' cause an error
If Err.Number <> 0 Then
N = 1
End If
TextBox21 = (Val(TextBox8)) + (Val(TextBox14)) + (Val(TextBox20))


Do i include a format element in the formula or do i format the text box as separate VBA code

Many Thanks
Al