I wonder if you're losing it when the frm object is closed?
Maybe try this?
Private Sub test()
DoCmd.OpenForm FormName:="yourFormName", view:=acDesign
Call AddFormats("yourFormName"!yourFormattedTextboxName, "yourFormName")
DoCmd.Close acForm, "yourFormName", acSaveYes
End Sub