Mega Code Archive
Currency Symbol codes
<![CDATA[
Imports System
Imports System.Globalization
Imports System.Text
Imports Microsoft.VisualBasic
Class SamplesNumberFormatInfo
Public Shared Sub Main()
Dim myInv As NumberFormatInfo = NumberFormatInfo.InvariantInfo
Dim myUE As New UnicodeEncoding(True, False)
Dim myCodes() As Byte
myCodes = myUE.GetBytes(myInv.CurrencySymbol)
Console.WriteLine( myInv.CurrencySymbol)
Console.WriteLine(myCodes(0))
Console.WriteLine(myCodes(1))
End Sub
End Class
]]>