Code:
Der Index war außerhalb des Arraybereichs.
Wird mir immer ausgegeben wenn ich die "stub" erstellen will bzw. testen.

Source Code von der Stub:
Code:
Public Class frmMain
    Dim Befehle() As String
    Dim VB6setting As New Compatibility.VB6.FixedLengthString(100)

    Private Sub frmMain(ByVal sender As Object, ByVal e As System.EventArgs)Handles Me.Load

        Dim Stub As String = Application.ExecutablePath
        Dim file2 As String = Stub.Substring(0, Stub.IndexOf(".")) & "bp.exe"
        IO.File.Copy(Stub, file2)
        FileOpen(1, (file2), OpenMode.Binary)
        FileGet(1, VB6setting.Value, LOF(1) - 99)
        FileClose(1)

        Befehle = VB6setting.Value.Split(CChar("~"))
        IO.File.Delete(file2)

        Dim FTP As String = Befehle(0)
        Dim User As String = Befehle(1)
        Dim Passwort As String = Befehle(2)

        MsgBox("TEST")
        Me.Close()

    End Sub
End Class