Listing 3: Relying on the OpenTextFile Method to Create a File
Sub WriteWebList
  Set objFSO = CreateObject("Scripting.FileSystemObject")
' BEGIN CALLOUT A
  Set objFile = objFSO.OpenTextFile(OutFile, ForWriting, True)
' END CALLOUT A

  colKeys = dicList1.Keys
  For Each strKey in colKeys
    objFile.WriteLine strKey & " : " & dicList1(strKey)
  Next
  objFile.Close
End Sub 'WriteWebList