Private Sub Command1_Click()
MsgBox getQQpath
End Sub

Public Function getQQpath() As String
Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")

getQQpath = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ\Install")
End Function

谢谢