German Fehler beim Erstellen einer Datei. Manifest-Problem

Public Pfad As String = File.DirRootexternal & "/Health"
Writer.Initialize(File.OpenOutput(Pfad,"Test.txt", False))

'This code will be applied to the manifest file during compilation.
'You do not need to modify it in most cases.
'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136
AddManifestText(
<uses-sdk android:minSdkVersion="14" android:targetSdkVersion="29"/>
<supports-screens android:largeScreens="true"
    android:normalScreens="true"
    android:smallScreens="true"
    android:anyDensity="true"/>)
SetApplicationAttribute(android:icon, "@drawable/icon")
SetApplicationAttribute(android:label, "$LABEL$")
CreateResourceFromFile(Macro, Themes.LightTheme)
SetApplicationAttribute(android:requestLegacyExternalStorage, true)
'End of default text.

<uses-sdk android:minSdkVersion="14" android:targetSdkVersion="29"/>

<uses-sdk android:minSdkVersion="14" android:targetSdkVersion="31"/>

AddManifestText(<uses-permission
    android:name="android.permission.WRITE_EXTERNAL_STORAGE"
    android:maxSdkVersion="31" />
)

    rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
    Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
    If Result = True Then Starter.Verz = File.DirRootExternal
    If Result=False Then xui.MsgboxAsync("Der Zugriff auf den Bildpfad ist fehlerhaft.","Fehler")

    rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
    Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
    If Result Then 'das =True ist optional
        Dim pfade() As String = Starter.rp.GetAllSafeDirsExternal("")
        Starter.Verz = pfade(0)

        'folgende If.... kannst Du weg lassen, wenn Du die evtl. Externe nicht brauchst, nur der Vollständigkeit halber ;-)
        If pfade.Length>0 Then
            Starter.ExtSDCard=pfade(pfade.Length-1)
        Else
            Starter.ExtSDCard=""
        End If
        
    else
        xui.MsgboxAsync("Der Zugriff auf den Bildpfad ist fehlerhaft.","Fehler")
    end if

    Public Verz As String
    Public rp As RuntimePermissions
    Public ExtSDCard As String