[SOLUCIONADO] leer XML en VB 2008

[Esfinge02]

buenas estoy tratando de consultar un archivo de xml, desde un formulario de visual pero simplemente no funciona e intentado con 2 formas de leer el xml pero no encuentro el error alguien me puede ayudar deja aquí el código que utilizo para leer el xml

Dim xd As New XmlDocument()
xd.Load("F:\skydrive-2013-09-06_of\ejemplo.xml")

Dim listas As XmlNodeList = xd.SelectNodes("retiros/retiro")

Dim lista As XmlNode
Dim a As Integer
Dim monto As Double
Dim total As Double
Dim motivo As String
Dim hora As String

If listas.Count <> 0 Then
MessageBox.Show("si hay datos", "mensaje de pruba", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
End If

For a = 0 To a < listas.Count
'Dim listado As String = lista.Attributes.GetNamedItem("id").Value
'monto = Convert.ToDouble(lista.ChildNodes.Item(0).InnerTex t)
'motivo = lista.ChildNodes.Item(1).InnerText
'hora = lista.ChildNodes.Item(3).InnerText

lista = listas.Item(a)
monto = Convert.ToDouble(lista.SelectSingleNode("monto").I nnerText)
motivo = Convert.ToString(lista.SelectSingleNode("motivo"). InnerText)
hora = Convert.ToString(lista.SelectSingleNode("fecha").I nnerText)

If motivo.Length > 12 Then
motivo = motivo.Substring(0, 12)
End If
total = total = monto

ticketToPrint.AnadirElemento(hora, "" & " | " & motivo, monto)
MessageBox.Show("hora" + hora + ", motivo" + motivo + ", monto " + monto + "", "mensaje de pruba", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
Next a

[RootK]

Y cual es el error o que es lo que quieres hacer u obtener del XML?