Thank you VERY much... NOW works!!!
Sub RegisterResults (minutesInt As Int, secondsInt As Int, errorsInt As Int)
If File.Exists(File.DirRootExternal,"MathTest/ListResults.txt") Then
Else
Dim Folder As String ="MathTest"
File.MakeDir(File.DirRootExternal,Folder)
Dim FullPath As String=File.Combine(File.DirRootExternal,Folder)
rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE) '
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result = False Then
MsgboxAsync("No permission to access external storage", "")
Return
Else
For i = 0 To 99
listResult(i)="0"
Next
'
listResult(0)=dayTodayString & "|" & monthTodayString & "|" & yearTodayString & "|" & minutesInt & "|" & secondsInt & "|" & errorsInt
File.WriteList(FullPath,"ListResults.txt", listResult)
End If
End If
End Sub