LISTING 2: VB Class TitleXMLLoader.cls

Option Explicit
Dim oTitleLoader As TitleXMLLoader
Private Sub cmdClear_Click()
    txtOutput = ""
End Sub

Private Sub cmdProcessFile_Click()
    If txtFileName.Text > "" Then
        txtOutput.Text = oTitleLoader.ProcessInComingFile(txtFileName.Text)
    End If
End Sub

Private Sub Form_Load()
Set oTitleLoader = New TitleXMLLoader

End Sub