Dim i As Intent
Dim rp As RuntimePermissions
Dim folder As String = rp.GetSafeDirDefaultExternal("shared")
i.Initialize(i.ACTION_SEND, CreateFileProviderUri(folder, FileName))
Dim pm As PackageManager
For Each component As String In pm.QueryIntentActivities(i)
If component.ToLowerCase.Contains("bluetooth") Then
i.SetComponent(component)
StartActivity(i)
Exit
End If
Next