Imports System
Module ExabyteExample
'
' VB.NET Long is a signed 64‑bit integer.
' Maximum value: 9,223,372,036,854,775,807 (~9.22 × 10^18)
'
' Exabyte sizes:
'
' 1 EiB = 2^60 = 1,152,921,504,606,846,976 bytes
' 1 EB = 10^18 = 1,000,000,000,000,000,000 bytes
'
' Both values fit safely inside a Long.
'
' Binary exabyte (exbibyte), using a bit shift.
' 1L << 60 = 2^60 bytes.
Public Const EXABYTE_EIB As Long = 1L << 60
' Decimal exabyte (SI), using a readable numeric literal.
Public Const EXABYTE_EB As Long = 1_000_000_000_000_000_000L
Sub Main()
Console.WriteLine("1 EiB = " & EXABYTE_EIB & " bytes")
Console.WriteLine("1 EB = " & EXABYTE_EB & " bytes")
End Sub
End Module
' run:
'
' 1 EiB = 1152921504606846976 bytes
' 1 EB = 1000000000000000000 bytes
'
