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