Private Sub Command1_Click() Dim Line As String ‘Input Nessus Log / Open Output Files Open App.Path & “” & Filename.Text & “.nbe” For Input As #1 If CheckXLS.Value = 1 Then Open App.Path & “” & Filename.Text & “.xls” For Append As #2 If CheckTXT.Value = 1 Then Open App.Path & “” & Filename.Text & “.txt” For Append As #3… read entire post