VBA 中 Shell 的用法

以下指令在Dos下能够将注册表指定的字段写入文档
reg export  "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts" D:\s.reg
在VBA中怎样实现？

Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
Dim txtR As String, pp
txtR = "D:\s.reg"
If Dir(txtR) = "" Then '不存在则添加一空文件
Open txtR For Output As #2
pp = WshShell.Regread("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts")
Print #2, pp
Close
End If
Set WshShell = Nothing