Italian Content chooser

Sub CC_Result (Success As Boolean, Dir As String, FileName As String)
   Dim bmpSample As Bitmap = Null

   If Not(Success) Then

       ReturnImage(bmpSample)

   Else

       Dim Error As Boolean = False
       
       If Dir <> "" Or FileName <> "" Then
           Try
               bmpSample = LoadBitmapSample(Dir, FileName, 100%x, mWorkingRoomHeight)
           Catch
               Error = True
           End Try
           
           If Error Then
               Try
                   bmpSample = LoadBitmapSample(Dir, GetPathFromContentResult(FileName), 100%x, mWorkingRoomHeight)
               Catch
                   Log(LastException)
               End Try
           End If
       End If
       
       If Error Then
           ReturnImage(bmpSample)
       Else
           ImageChosen
       End If

   End If
   
End Sub

Private Sub GetPathFromContentResult(UriString As String) As String
   If UriString.StartsWith("/") Then Return UriString 'If the user used a file manager to choose the image

   Dim Cursor1 As Cursor
   Dim Uri1 As Uri
   Dim Proj() As String = Array As String("_data")
   Dim cr As ContentResolver

   cr.Initialize("")

   If UriString.StartsWith("content://com.android.providers.media.documents") Then
       Dim i As Int = UriString.IndexOf("%3A")
       Dim id As String = UriString.SubString(i + 3)
       Uri1.Parse("content://media/external/images/media")
       Cursor1 = cr.Query(Uri1, Proj, "_id = ?", Array As String(id), "")
   Else
       Uri1.Parse(UriString)
       Cursor1 = cr.Query(Uri1, Proj, "", Null, "")
   End If

   Cursor1.Position = 0
   Dim res As String
   res = Cursor1.GetString("_data")
   Cursor1.Close

   Return res
End Sub