VB读取XML中照片信息请教（看了前辈的代码但是还是报错）

代码如下
Dim xmlDoc As New MSXML.DOMDocument
Dim a As String
  xmlDoc.Load App.Path & "\1.xml "
  a = App.Path & "\1.xml "
  Dim iStm   As ADODB.Stream
  Set iStm = New ADODB.Stream
 With iStm
        .Mode = adModeReadWrite
        .Type = 2
        .Open
        .Write xmlDoc.selectSingleNode("CzrkSdzp ").selectSingleNode("CzrkSdzp ").nodeTypedValue '("CzrkSdzp").nodeTypedValue
        .SaveToFile App.Path & "\test1.jpg "
  End With
XML照片信息（部分信息）
  <CzrkSdzp>/9j/4AAQSkZJRgABAQEBXgFeAAD/+GN1MO4N+8xz6Uwf6+L/AD/FSp/rR/v1ujAWYqqhU6Nz8tVgGVhldzfw0+D/AFb/AEpzfcj+lADEOG2sNvzbqUquNxVv9n5aJv8AVr/vVKv3x/uNTIWhCWbcM/w80NtOF+Xdj+H+Gg/6pf8Af/8AZab/AAr9KQxy/f8AlX3p7NuRfL2/e4pR/qo/qtLH/qzQDHRhCGx680U1/vD6UUyD/9k=</CzrkSdzp> 

补充：VB ,  基础类