Public Declare Function sevSEPA_SetProperty Lib "sevDTA20.DLL" ( _
  ByVal Property As String, _
  ByVal Value As String) As Long

urn:iso:std:iso:20022:tech:xsd:pain.001.003.03

    fHandle = sevSEPA_CreateFile(sFilename, True)
    If fHandle > 0 Then
       ' Xml-Format Rulebook 6.0 für Österreich
      lResult = sevSEPA_SetProperty("XmlFormat", "99")
      If Not (lResult = 1) Then
        MsgBox "Rulebook 6 (Österreich) kann nicht initialisiert werden!"
        qkosten.Close
        Set qkosten = Nothing
        CreateTelebankingXML_sev = -1
        GoTo Exit_CreateTelebankingXML_sev
      End If
 
      ' Datenträger-Vorsatz
      lResult = sevSEPA_FileInit(fHandle, sKZ, Sname, sKtoInh, sIBAN, sBIC, _
        sRefId, sDatum, nLcCode, nSeqType, sCdtrId)
 
      ' Fehler ???
      bResult = (lResult = ERR_SEPA_SUCCESS)
      If bResult Then
        ' kein Fehler