Attribute VB_Name = "Module1"
Option Explicit
Sub pause(interval As String)
Dim X
X = Timer
Do While Timer - X < Val(interval)
DoEvents
Loop
End Sub
Public Sub SaveList(sLocation As String, lstListBox As ListBox, common As CommonDialog)
On Error GoTo dlgerror
Dim sCurrent As String
Dim I As Integer
Open sLocation For Output As #1
I = 0
Do Until I = lstListBox.ListCount
sCurrent = lstListBox.List(I)
Print #1, sCurrent
I = I + 1
Loop
Close #1
MsgBox "List saved to " & common.FileName & " successfully.", vbInformation, "List Saved."
Exit Sub
dlgerror:
MsgBox "An error has occured " & Err.Description
Exit Sub
End Sub