Module Example Public Sub Main() Dim byteValues() As Byte = { 12, 163, 255 } For Each byteValue As Byte In byteValues Console.WriteLine(byteValue.ToString("X4")) Next End SubEnd Module