Obtener el valor un nodo de un XML

¿Como obtener el valor un nodo de un XML?

Con el uso de esta función podrán obtener el valor de un nodo que busquen de un XML.

solo deben pasar como parámetro la ruta del archivo .XML , el nodo que desean obtener y el atributo donde se encuentra ese nodo  de este modo : 

 Dim UUID As String = ObtenerValor(Ruta, "tfd:TimbreFiscalDigital", "UUID")

Funcion:

 Function ObtenerValor(ByVal Archivo As String, ByVal Nodo As String, ByVal Atributo As String)

        Dim val As String = ""
        Dim reader As XmlTextReader = New XmlTextReader(Archivo)
        reader.Read()
        Do While (reader.Read())
            If reader.Name = Nodo  Then
                If reader.HasAttributes Then
                    While reader.MoveToNextAttribute()
                        If reader.Name = Atributo Then
                            val = reader.Value
                        End If
                    End While
                End If
            End If
        Loop
        reader.Close()
        Return val

    End Function