Imports System
Module Example
Sub Main()
Dim numbers() As Byte = { 0, 16, 104, 213 }
For Each number As Byte In numbers
Console.Write("{0,-3} --> ", number.ToString())
Console.Write(number.ToString("D3") + " ")
Console.Write(number.ToString("X2") + " ")
Console.WriteLine(number.ToString("X4"))
Next
End Sub
End Module