Data Type Functions VisualBasic Script

Sub FormatPostalCode()
  Debug.Print Format("qqqqqqqqq", "!&&&&&-&&&&")
End Sub