UNICODE
Private Function UnicodeBytesToString( ByVal bytes() As Byte) As String Return System.Text.Encoding.Unicode.GetString(bytes) End Function
シフトJIS(SJIS)
Private Function SJISBytesToString(ByVal bytes() As Byte) As String System.Text.Encoding.RegisterProvider(System.Text.CodePagesEncodingProvider.Instance) Return System.Text.Encoding.GetEncoding("Shift_JIS").GetString(bytes) End Function