Option Explicit
  Dim FNr As Long
  Dim Data() As Byte
  Dim FileNameIn As String
 
Private Sub Command2_Click()
 On Error Resume Next
With CommonDialog1
    .CancelError = True
    .Filter = "DWC AUTHDATA (DWC_AUTHDATA.a)|DWC_AUTHDATA.a|"
    .ShowOpen
   End With
End Sub
 
 
 
Private Sub Command1_Click()
 
 
    ' Datei die eingelesen werden soll
    FileNameIn = CommonDialog1.FileName
 
    ' Freie Dateinummer holen
    FNr = FreeFile
 
    ' Datei binär öffnen / anlegen wenn nicht vorhanden
    Open FileNameIn For Binary Access Read As #FNr
 
    ' ByteArray dimensionieren
    ReDim Data(0 To (LOF(FNr)))
 
    ' Daten komplett einlesen
    Get #FNr, , Data
 
     Text1.Text = Hex$(Data(7))
 
    Close #FNr
End Sub
 
 
Private Sub Command4_Click()
 
  Open App.Path & "\Kopie.a" For Binary Access Write As #1
    Put #1, , Data
  Close #1
 
End Sub