Class Sample Public Shared Sub Main() Dim bytes() As Byte = { Byte.MinValue, 14, 122, Byte.MaxValue} Dim result As ULong For Each byteValue As Byte In bytes result = Convert.ToUInt64(byteValue) Console.WriteLine(result) Next End Sub End Class