Hi ich habe mal einen pe fixer gecoded also eine funktion

Code:
Public Function FixPEHeader(file As String) As String
Dim EOFData As String
Dim Size As String
Dim Dateigröße As String
Dim im As IMAGE_SECTION_HEADER
Open file For Binary Access Read As #1 'Pfad zur exe
Size = String(LOF(1), vbNullChar)
Get #1, , Size
Close #1
Dateigröße = GetExeByte(Size)
EOFData = Dateigröße - section(3).PointerToRawData + section(3).SizeOfRawData
section(3).VirtualSize = section(3).VirtualSize + EOFData
section(3).SizeOfRawData = section(3).SizeOfRawData + EOFData
NTHEADER.OptionalHeader.SizeOfImage = NTHEADER.OptionalHeader.SizeOfImage + EOFData
Open file For Binary As #1
Put #1, , DOSHEADER
Put #1, DOSHEADER.e_lfanew + 1, NTHEADER
ReDim section(1 To NTHEADER.FileHeader.NumberOfSections)
For i = 1 To NTHEADER.FileHeader.NumberOfSections
Put #1, , im
section(i) = im
Next
Close #1
End Function

der obere teil war eigentlich kein großes problem blos das hinzufügen in das file da hab ich probleme ich glaube so wie ich das mache ist es falsch also der Teil

Code:
Open file For Binary As #1
Put #1, , DOSHEADER
Put #1, DOSHEADER.e_lfanew + 1, NTHEADER
ReDim section(1 To NTHEADER.FileHeader.NumberOfSections)
For i = 1 To NTHEADER.FileHeader.NumberOfSections
Put #1, , im
section(i) = im
Next
Close #1
könnte mir jemand vieleicht ein bischen helfen also sagen wie ich die funkton zum laufen bringe wäre echt nett


MFG
Inj3ct