>I am using a masked edit control, the max length property set is 15,
>but the mask is not allowed for more than 10 characters, if no
>mask is defined, then the max length property does not seem to work too.

The MaxLength property is set by the mask you use. You don't have to set this property. See this example:

Private Sub Command1_Click()
   MaskEdBox1.Mask = String(Val(Text1.Text), "&")
End Sub