Class Sample Public Shared Sub Main() Dim provider As New System.Globalization.NumberFormatInfo() provider.NegativeSign = "minus " Dim values() As Long = { -200, 0, 1000 } For Each value As Long In values Console.WriteLine("{0,-6} --> {1,10}", _ value, Convert.ToString(value, provider)) Next End Sub End Class