To blank out the text in a masked edit box, make sure the string you assign uses underscores matching the mask. It’s difficult to maintain code when you have to change a mask; you have to find all the locations where you cleared the masked edit control in your code. To fix this problem, simply get rid of the mask, clear the contents, then restore the mask. Use this subroutine to clear the text of any masked edit box; just pass in the control:
Public Sub ClearMaskEdBox(oMaskEdBox As MaskEdBox) Dim sTemp As String With oMaskEdBox sTemp = .Mask .Mask = "" .Text = "" .Mask = sTemp End WithEnd Sub'Sample Call:Private Sub cmdClear_Click() ClearMaskEdBox MaskEdBox1 MaskEdBox1.SetFocusEnd Sub