Class Sample Public Shared Sub Main() Dim provider As New System.Globalization.NumberFormatInfo() provider.NegativeSign = "minus " Dim values() As Integer = { -20, 0, 100 } For Each value As Integer In values Console.WriteLine("{0,-5} --> {1,8}", value, Convert.ToString(value, provider)) Next End Sub End Class