[Programmer-VB] [ASK]Cara baca XML string pada VB.net

[budiman Lai]

ada yg tau cara baca XML string di VB.net ga? bukan
dari file XML, tp XML nya berupa string.
'=========================
' Start Code
'=========================
Dim xmlString As String

xmlString = "<departement>"
xmlString = xmlString & "<employee>"
xmlString = xmlString & "<nama>Budi</nama>"
xmlString = xmlString & "<umur>27</umur>"
xmlString = xmlString & "<kota>Jakarta</kota>"
xmlString = xmlString & "</employee>"
xmlString = xmlString & "<employee>"
xmlString = xmlString & "<nama>Andi</nama>"
xmlString = xmlString & "<umur>25</umur>"
xmlString = xmlString & "<kota>Bandung</kota>"
xmlString = xmlString & "</employee>"
xmlString = xmlString & "<employee>"
xmlString = xmlString & "<nama>Yudi</nama>"
xmlString = xmlString & "<umur>20</umur>"
xmlString = xmlString & "<kota>Medan</kota>"
xmlString = xmlString & "</employee>"
xmlString = xmlString & "</departement>"

Dim sr As New System.IO.StringReader(xmlString)
Dim doc As New Xml.XmlDocument

doc.Load(sr)
'or just in this case doc.LoadXML(xmlString)

Dim reader As New Xml.XmlNodeReader(doc)

While reader.Read()
  Select Case reader.NodeType
  Case Xml.XmlNodeType.Element
    If reader.Name = "employee" Then
      MessageBox.Show(reader.GetAttribute("nama"))
    End If
  End Select
End While

'=============================
' End Code
'=============================

nah sy menggunakan script diatas selalu keluar kode
kesalahan. ada yg bisa bantu ga?

thanks