Imports System.Globalization
Module Example
Public Sub Main()
Dim nfi As New NumberFormatInfo()
nfi.NegativeSign = "~"
Dim bytes() As SByte = { -122, 17, 124 }
For Each value As SByte In bytes
Console.WriteLine(value.ToString(nfi))
Next
For Each value As SByte In bytes
Console.WriteLine(value.ToString(NumberFormatInfo.InvariantInfo))
Next
End Sub
End Module