Imports System.IO
Imports System.Text
Public Class frm_Main
    Public Sub Openfile()
        Dim f As New OpenFileDialog
        f.Filter = "*.*|*.*"
        f.ShowDialog()
        If File.Exists(f.FileName) = False Then Exit Sub
        Call Read(f.FileName)
    End Sub
 
    Public Sub Read(ByVal pfad As String)
        Dim f As New FileStream(pfad, FileMode.Open, FileAccess.Read, _
          FileShare.Read)
        Dim a As String, i As Long
 
        Dim arr(f.Length) As Byte
        f.Read(arr, 0, f.Length)
        f.Close()
 
        For i = 0 To UBound(arr)
            If i Mod 16 = 0 And i > 0 Then 'Zahl ist durch 16 teilbar \n einfügen
                a = a & vbNewLine & Hex(arr(i)) & Space(2)
            Else
                If i Mod 8 = 0 And i > 0 Then 'Zahl ist durch 8 teilbar
                    a = a & "- " & Hex(arr(i)) & Space(2) 'Seperator - einfügen
                Else
                    a &= Hex(arr(i)) & Space(2) 'Zeichen anfügen
            End If
            End If
        Next i
 
        RichTextBox1.Text = Mid(a, 1, Len(a) - 2)
    End Sub