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