Msgbox2Async("Test", "1", "", "OK", "", Null, False)
Wait For Msgbox_Result (Result As Int)
'
'gespeicherte Variablen für Grundeinstellungen aus ini-Datei laden
LoadVar
'
...
Sub LoadVar
'
Msgbox2Async("Test", "2", "", "OK", "", Null, False)
Wait For Msgbox_Result (Result As Int)
'
Dim rp As RuntimePermissions
rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, istOK As Boolean)
If istOK Then
'access here
...