Imports System.Xml

Public Class Form1

Dim doc As XmlDocument

Dim strXMLFilename As String = "c:\xml L11 Finished\quiz\quiz.xml"

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

If Not My.Computer.FileSystem.FileExists(strXMLFilename) Then

MsgBox("We were unable to open the quiz XML file " & strXMLFilename)

End

End If

doc = New XmlDocument()

doc.Load(strXMLFilename)

Call RunTheQuiz()

End Sub