How to export a sdlxliff file with Passolo macro?

Hello all,

I am reading the passolo automation document on Export topic.

https://docs.sdl.com/881527/741226/sdl-passolo-automation/pslproject-export

I tried the example and all the file types in the topic work except "SDLXLIFF Text Export". Could you help to identify error in the macro?

' Creates a text export file for each language
Sub main
  Dim prj As PslProject 
  Set prj = PSL.ActiveProject 
  If prj Is Nothing Then Exit Sub 
 
  Dim lang As PslLanguage 
  For Each lang In prj.Languages 
    ' Create the translation bundle 
    Dim bundle As PslTransBundle
    Set bundle = prj.PrepareTransBundle
 
    Dim trn As PslTransList 
    dim i as Integer
    For i = 1 to prj.TransLists.Count
      set trn = prj.TransLists(i)
      If trn.Language Is lang Then 
        bundle.AddTransList(trn)
      End If
    Next i 
   
    ' Make filename "test<langcode>.tba/tbu" 
    Dim filename As String 
    filename = "c:\test\test" & lang.LangCode & ".txt"
'change the file type here prj.Export "SDLXLIFF Text Export", bundle, filename Next lang End Sub