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