Guten Tag miteinander

Ich würde gerne per VBA eine Textdatei mit Hilfe eines Dialogs erstellen und danach die neue Textdatei mit Daten aus einer Listbox abfüllen.

Das Speichern selber funktioniert, jedoch füllt es nichts ab.

Private Sub expBtn_Click()
    Dim lngSave As Long
    On Error Resume Next
    Dim share As String * 25
    Dim group As String * 25
    Dim perm As String * 25
    Dim server As String * 15
    Dim file_name As Variant
    Dim TextFile As Integer
    Dim fso As Object
    Dim oFile As Object
    
    file_name = Application.GetSaveAsFilename( _
    InitialFileName:="permissions", _
    FileFilter:="Textdateien (*.txt), *.txt")
    
    If file_name = False Then
        Exit Sub
    End If
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set oFile = fso.CreateTextFile(file_name)

    TextFile = FreeFile
 
    Open file_name For Output As TextFile
    For lngSave& = 0 To listBox.ListCount - 1
        server = listBox.List(lngSave&)
        share = listBox.List(lngSave&, 1)
        perm = listBox.List(lngSave&, 2)
        group = listBox.List(lngSave&, 3)
        
        Print TextFile, server;
        Print TextFile, share;
        Print TextFile, perm;
        Print TextFile, group
        
    Next lngSave&
    Close TextFile
    
    
End Sub