Een nieuw XML bestand aan maken

[keesstruijk]

Heb dit overgenomen uit het boek VisualBasic Kookboek en krijg de foutmelding
Name 'Writewerknemer' is not declared
iemand een idee hou ik 'Writewerknemer' moet declareren

Private Sub btnMaakXMLbestand_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMaakXMLbestand.Click
Dim strBestandnaam As String = "C;\Werknemers.xml"
Dim objXmlTexWriter As New XmlTextWriter(strBestandnaam, Encoding.UTF8)
Dim wrt
With objXmlTexWriter
.WriteStartDocument()
.WriteStartElement("Werknemers")

Writewerknemer(objXmlTexWriter, "1234", _
"Klaasen", "Jan", New Date(1970, 1, 1))
Writewerknemer(objXmlTexWriter, 1235, _
"Jansen", "Jan", New Date(1980, 2, 2))
WriteWerknemer(objXmlTexWriter, "1236", _
"Pietersen", "Piet", New Date(1990, 3, 3))
.WriteEndElement()
.WriteEndDocument()
.Close()

End With


End Sub