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