Sub Activity_Create(FirstTime As Boolean)
Rp.CheckAndRequest(Rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, ResultStorage As Boolean)
If ResultStorage = False Then
Msgbox ("Please allow permission","Information")
...
End If
...
End Sub