Android Question Update Android App

 FTP1.Initialize("FTP", "xxx", 21, "xxx", "xxx")
   FTP1.UseSSL = False
   FTP1.PassiveMode = False
   If FTP1.IsInitialized = False Then
     Msgbox("Kann keine Verbindung herstellen, Update nicht möglich!","Fehlermeldung")
     Else
     FTP1.DownloadFile("/Daten/Daten/Excel Projekte/Ausbilder/Test.apk", True, "/storage/extSdCard/Ausbilder/", "Test.apk")

Sub Label8_Click
    FTP.Initialize("FTP", "xxx", 21, "xxx", "xxx")
    FTP.UseSSL = False
    FTP.PassiveMode = True
    If FTP.IsInitialized = False Then
        Msgbox("Kann keine Verbindung herstellen, Update nicht möglich!","Fehlermeldung")
        Else
        FTP.DownloadFile("/Daten/Daten/Excel Projekte/Ausbilder/Test.apk", True, "/storage/extSdCard/Ausbilder/", "Test.apk")
        End If
    End Sub

Sub ftp_Downloadcompleted (ServerPath As String, Success As Boolean)
    If Success = True Then
    Dim i As Intent
    i.Initialize(i.ACTION_VIEW, "file://" & File.Combine("/storage/extSdCard/Ausbilder/", "Test.apk"))
    i.SetType("application/vnd.android.package-archive")
        StartActivity(i)
        Dim j As Int: j = 1
        Main.SQL6.ExecNonQuery("UPDATE table6 Set Version = '"&Main.build1&"' WHERE ID = '"&j&"'")
        Msgbox("Update erfolgreich ausgeführt!","Information")
        FTP.Close
Else
        Msgbox("Kann keine Verbindung herstellen, Update nicht möglich!","Fehlermeldung")
        End If
End Sub