Dim bytfile() As Byte = _
    My.Computer.FileSystem.ReadAllBytes("Pfad einer Datei")
 
    Dim bytcounter(255) As Long
    For i As Integer = 0 To bytfile.Length - 1
        bytcounter(bytfile(i)) += 1
    Next i
 
    For i As Integer = 0 To 255
       Debug.Print("Byte: " & CStr(i) & "  " & CStr(bytcounter(i)))
    Next i