请教一个VB读取注册表的问题

使用Wscript.Shell对象的RegRead方法读取注册表时，如果值项中也带有“\”，那如何来写呢？因为这个方法的参数中就是用“\”把主键以及各级子键隔开的，到了最后一级的值项该如何写呢？

Set wss = CreateObject("WScript.Shell")
codetest = wss.RegRead("HKLM\HARDWARE\DEVICEMAP\SERIALCOMM\……")
举例如上，省略号的部分应该是一个值项的名称，但是如果值项名称本身就带有"\"该怎么办？比如有一个值项是"\Device\ProlificSerial2"

'文本框Text1,设计时 MultiLine = True ,ScrollBars = 3 - Both ,
Const HKCU = &H80000001
Const REG_SZ = 1
regPath = "Software\Microsoft\Internet Explorer\TypedURLs"
Set oReg = GetObject("winmgmts:\\.\root\default:StdRegProv")
oReg.EnumValues HKCU, regPath, arrValues, arrTypes '枚举键值
For i = 0 To UBound(arrValues)
If arrTypes(i) = REG_SZ Then '判断键值类型
oReg.GetStringValue HKCU, regPath, arrValues(i), strData
Text1 = Text1 & arrValues(i) & "=" & strData & vbCrLf
End If
Next