Imports Microsoft.VisualBasic
Console.WriteLine("* " & MaskFormat("123456787"))
Function MaskFormat(input As String) As String
input = input.Replace("-", String.Empty)
If input.Length < 14 Then
input = input.PadRight(14 - input.Length)
Return String.Format("{000-000-000}", CLng(input))