Imports System.Xml

Imports System.IO

Public Class Form1

Dim strXMLFilename As String = "C:\xml L12 Finished\coin collection\coin collection.xml"

Dim doc As XmlDocument

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

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

Dim sw As StreamWriter

sw = New StreamWriter(strXMLFilename)

sw.WriteLine("<?xml version=""1.0"" encoding=""ISO-8859-1""?>")

sw.WriteLine("<collection></collection>")

sw.Close()

End If

doc = New XmlDocument()

doc.Load(strXMLFilename)

Me.Text = "Collection Data Entry. Press the Tab key to move to the next field, or to the next page. All fields except the Description are optional."

btnFinish.TabStop = False

End Sub