gRp.CheckAndRequest(gRp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Dim outs As OutputStream = File.OpenOutput(gRp.GetSafeDirDefaultExternal("") , gs_filename, False)
...
outs.Close
Else
ToastMessageShow("Failed to create file", False)
End If