I have several textboxes in userforms which either need to be currency or %. I have tried the following code but it only formats correctly when a change is made. Once the form is closed and reopened the formatting is gone. I hope someone can help

Sub TextBox1_OnChang
TextBox1.Value = Format(TextBox1.Value, "$#,##0"
End Su

In advance thanks.