Imports Microsoft.VisualBasic
Console.WriteLine("* " & MaskFormat("12345678-9012-3456"))
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("{0:00-000-0-0000-00-00}", CLng(input))