Hallo ich hab wieder n' problem: also meinen stub:
hier is der code:

Code:
Private Sub Form_Load()
Dim BinStr() As String

Open App.Path + "\" & App.EXEName & ".exe" For Binary As #1
BinStr = Space(LOF(1))
Get #1, , BinStr
Close #1

Text1.Text = Split(BinStr, "(Dil)")(1)
Text2.Text = Split(BinStr, "(Dil)")(2)
Text3.Text = Split(BinStr, "(Dil)")(3)
End Sub
Da kommt folgender fehler. Ich hoffe ihr könnt mir helfen....ICH finde dort keinen fehler :O