iOS Question Upload image to my server

Sub Cam_Complete (Success As Boolean, Image As Bitmap, VideoPath As String)
    If Success Then
        If Image.IsInitialized Then
            ImageView_mi_foto.Bitmap = Image       
        Else
            hd.ToastMessageShow("Error loading image",True)
        End If
    End If
End Sub

Sub chooser_Result (Success As Boolean, Dir As String, FileName As String)
    If Success Then
        ImageView_mi_foto.Bitmap=LoadBitmap(Dir,FileName)
        Dim realPath As String = GetPathFromContentResult(FileName)
        Log("realPath = " & realPath)

Dim x_t,xm,long_imh As Int
long_imh=realPath.Length
Dim t_c As String
Do While t_c <> "/"
            x_t = x_t + 1
            t_c=realPath.SubString2(long_imh-x_t ,long_imh-x_t + 1)
Loop

Log (x_t)

Dim direc , img As String
        img = realPath.SubString2(long_imh-x_t + 1,long_imh )
        direc=realPath.SubString2(0,long_imh-x_t+1)
    Dim fecha2,hora2 As String
        DateTime.DateFormat = "yyyy/MM/dd"
        DateTime.TimeFormat = "HH:mm:ss"
        hora2 = DateTime.Time(DateTime.Now)
        fecha2=fecha2.Replace("/","")
        hora2=hora2.Replace(":","")
        nombre_gimg_ca =fecha2 & hora2 & img

        el_ftp_img.UploadFile(direc,img,True, "/" & nombre_gimg_ca )   
    Else
        ToastMessageShow("No image selected", True)
    End If
End Sub