Android Question save text file on ftp server

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
    ftp.Initialize("FTP","basic4android.de",21,"xxxxx","xxxxxx")
    ftp.List("/")
    ftp.UploadFile(...)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub FTP_UploadProgress (ServerPath As String, TotalUploaded As Long, Total As Long)
    Log($"FTP_UploadProgress(${ServerPath}, ${TotalUploaded}, ${Total})"$)   
End Sub
Sub FTP_UploadCompleted (ServerPath As String, Success As Boolean)
    Log($"FTP_UploadCompleted(${ServerPath}, ${Success})"$)
End Sub
Sub FTP_DownloadCompleted (ServerPath As String, Success As Boolean)
    Log($"FTP_DownloadCompleted (${ServerPath}, ${Success})"$)
End Sub
Sub FTP_ListCompleted (ServerPath As String, Success As Boolean, Folders() As FTPEntry, Files() As FTPEntry)
    Log($"FTP_ListCompleted(${ServerPath},${Folders.Length},${Files.Length})"$)
    If Files.Length>0 Then
        For i = 0 To Files.Length-1
            Dim fle As FTPEntry = Files(i)
            ftp.DownloadFile("/"&fle.Name,False,File.DirRootExternal,fle.Name)
        Next
    End If
End Sub

Sub getFTP_Click
    Dim ftp As FTP
    ftp.PassiveMode=False
    ftp.Initialize("ftp","192.168.2.1","400","user","pass")     'works fine
    ftp.Initialize("ftp","my ip","400","user","pass")           'creates a 0 kb file name alt
    ftp.UploadFile(File.DirRootExternal,"new2.txt",False,"alt.txt")
    ftp.Close
End Sub