Dim byteconvert(255) As Byte
 
For i As Integer = 0 To 255
    'i kann hier nicht Byte sein,
    'weil i am Ende der Schleife auf 256 steht = unzulässig als Byte
    byteconvert(i) = CByte(i) 'explizite Umwandlung Integer -> Byte
Next i
 
'Explizite Festlegung des zugewiesenen Datentyps 
'(bei hart codierten Zahlen optional !!)
byteconvert(31) = CByte(44)
byteconvert(56) = CByte(68)
 
Dim oldbyte As Byte '= irgendwas 0-255
Dim neuwert As Byte
 
'Explizite Erweiterungskonvertierung des Index 
neuwert = byteconvert(CInt(oldbyte))
 
'Implizite Erweiterungskonvertierung des Index: Byte -> Integer
neuwert = byteconvert(oldbyte)