Public Function Attribute(ByVal Offset1 As Long, ByVal Offset2 As Long, ByVal _
  Ausgabe As TextBox, ByVal Pfad As String)
        Dim file As New System.IO.FileStream(Pfad, IO.FileMode.Open, _
        IO.FileAccess.ReadWrite)
	Dim Zahl as integer
 
        file.Position = Offset1 'Positionieren (entspricht dem Offset-Wert im 
        ' Hexeditor)
        b1 = file.ReadByte.ToString 'Byte an position lesen
 
	' Vermutlich ist Offset2 um ein größer als Offset1 also kannst du dir die 
' nächst Zeile Schenken!
        ' file.Position = Offset2 'Positionieren (entspricht dem Offset-Wert im _
          Hexeditor)
        b2 = file.ReadByte.ToString 'Byte an position lesen
 
	Zahl = (B1 * 256) + B2
 
 
        Ausgabe.Text = zahl
 
        file.Close()
End Function