Imports System.Text

Module Module1

    Private encoding As New UTF8Encoding

 

    Sub Main()

        ‘int 64

        Dim my_nibbles = &B0111_0011_0110_1001_0111_0101_0100_1100_0100_1100_0101_0000_0110_0101_0101_0000

        ‘

        Console.WriteLine(«My hex  : « + Hex(my_nibbles).ToString)

        ‘ byte array

        Dim btes As Byte() = BitConverter.GetBytes(my_nibbles)

        ‘ retrieve string

        Dim myName = encoding.GetString(btes)

        Console.WriteLine(«My name : « + myName)

 

        Console.ReadLine()

    End Sub
End Module

Regards!,
PepLluis,