Hallo Leute brauche dringend einen guten Rat.
Kann man diese beiden abschnitte zusammenfassen, sodass man die Funktion nicht mehr aufrufen brauch ?

Code :

Private Function LoadFile(sPath As String) As String
Dim lFileSize As Long
Dim sData As String


Open sPath For Binary Access Read As #1
lFileSize = LOF(1)
sData = Input$(lFileSize, 1)
Close #1
LoadFile = sData
End Function

Private Sub Build_Click(Index As Integer)

Dim sBuff As String
Dim sSize As String * 8

Open App.Path & "\Test.exe" For Binary Access Write As #2
sBuff = LoadFile(App.Path & "\stub.exe")
Put #2, , sBuff
sBuff = LoadFile(Text1)
Put #2, , sBuff
sSize = Len(sBuff)
Put #2, , sSize
Put #2, , 27
Close #2
End Sub

Also Function LoadFile weg...