Browse a Folder and Populate Listbox with Folder Items

[defcon_3]

@bigJD
Create a textbox "Textbox1"
Replace Private Sub ListBox1_Click() with this code ;

Dim txt As String
    With Me.Listbox1
    If .ListIndex > -1 Then
        If FileLen(.Value) Then
            Me.Textbox1.Value = _
            CreateObject("Scripting.FileSystemObject") _
            .OpenTextFile(.Value).ReadAll
        Else
            Me.Textbox1.Value = ""
        End If
    End If
    End With

On your SAVE button which is CommandButton3 put this code

With Me
    If .Listbox1.ListIndex > -1 Then
        Open Listbox1.Value For Output As #1
        Print #1, .Textbox1.Value
        Close #1
    End If
    End With

That will work IMO.