If Not xmlDoc.Load("D:\95810.txt") Then
    MsgBox xmlDoc.parseError.reason
    Exit Sub
  End If

Markierte zeile noch hinzugefügt - hatte ich vergessen.

PS: Bitte beachten, der Quelltext ist soweit nicht auf Fehlerbehandlung ausgelegt, das hab ich mir mal geschenkt. ;)