Module Example Public Sub Main() Dim number1 As Double = 1234567890 Dim value1 As String = number1.ToString("(###) ###-####") Console.WriteLine(value1) End SubEnd Module