sMask is string = "99 99 99 99 99"
CustomMask is InputMask
CustomMask.FormatDuringInput = FormatDuringInput
CustomMask.ValidateDuringInput = ValidateDuringInput
CustomMask.ValidateDuringExit = ValidateDuringExit
CustomMask.FormatDuringExit = FormatDuringExit
CustomMask.FormatDuringEntry = FormatDuringEntry
CustomMask.FormatDuringAssignment = FormatDuringAssignment
CustomMask.CheckIfValidInput = CheckIfValidInput

EDT_Phone.InputMask = CustomMask

INTERNAL PROCEDURE FormatDuringInput(LOCAL sTextBefore is string, 
	sTextAfter is string, ...
	nCursorAfter is int, ...
	nEndCursorAfter int)
	IF Length(sTextBefore) > Length(sTextAfter) THEN RESULT 
	//No action if deleting
	// if at the end
	IF nEndCursorAfter = Length(sTextAfter) +1 THEN
		// include " " if needed at this location
		IF Middle(sMask, nEndCursorAfter, 1) = " " THEN
			sTextAfter += " "
			nEndCursorAfter ++
			nCursorAfter = nEndCursorAfter
		END
	END
END
INTERNAL PROCEDURE ValidateDuringInput(sText is string): boolean
	RETURN MatchRegularExpression(sText , "[0-9 ]*")
END
INTERNAL PROCEDURE CheckIfValidInput(sText is string): boolean
	RETURN ValidateDuringInput(sText) _AND_ Length(sText) >= 3
END
INTERNAL PROCEDURE FormatDuringAssignment(sText_INOUT is string) 
		FormatStringToPhoneNumber(sText_INOUT)
END
INTERNAL PROCEDURE ValidateDuringExit(sText is string): boolean
	IF Length(sText) < 3 THEN
		ToastDisplay("3 characters minimum")
		RESULT False
	END
	RETURN True
END
INTERNAL PROCEDURE FormatDuringExit(sText_INOUT is string) 
	FormatStringToPhoneNumber(sText_INOUT)
END
INTERNAL PROCEDURE FormatDuringEntry(sText_INOUT is string) 
	FormatStringToPhoneNumber(sText_INOUT)
END
INTERNAL PROCEDURE FormatStringToPhoneNumber(sText_INOUT is string)
	// group numbers like in the mask
	sText_INOUT = Replace(sTexte_INOUT," ","")
	sResult is string
	nPosSrc is int = 1
	FOR I = 1 _TO_ Length(sMask)
		// depending on the character in the mask
		SWITCH Middle(sMask, I, 1) 
			CASE " "
				sResult += " "
			OTHER CASE
				// keep the entered character
				sResult += Middle(sText_INOUT, nPosSrc, 1) 
				nPosSrc++
		END
	END
	sText_INOUT = sResult
END