Module Example Public Sub Main() Dim negValue As Double = -1234 Dim fmt2 As String = "##;(##)" Console.WriteLine(negValue.ToString(fmt2)) ' Displays (1234) End SubEnd Module