vb程序，大家帮我看看是什么功能，谢谢大家了

Private Function FindInstallpath(subkey As String, Installpath As String) As String

Dim pp, kk() As String
Dim subitem As String
subitem = subkey
pp = EnumSubItem(HKEY_LOCAL_MACHINE, subkey)
If (UBound(pp) - LBound(pp)) = 0 Then Exit Function
Dim ll As Integer, i As Integer
i = 0
ReDim kk(10)
kk(0) = pp(0)
Do
'查找子项
pp = EnumSubItem(HKEY_LOCAL_MACHINE, subkey & "\" & pp(0))
i = i + 1
kk(i) = pp(0)
Loop Until UBound(pp) = 0
ReDim Preserve kk(i)
For ll = 0 To UBound(kk)
subitem = subitem & "\" & kk(ll)
Next ll
pp = EnumKeyAndValue(HKEY_LOCAL_MACHINE, subitem)
For i = 0 To UBound(pp)
If pp(i) = Installpath Then Exit For
Next i
ReDim Preserve pp(i)

FindInstallpath = QueryKeyValue(HKEY_LOCAL_MACHINE, subitem, CStr(pp(i)), True)

End Function
这些kk，pp的是什么呀

大家帮我看看这个VB程序 大家来帮我看看VB程序 大家帮我看看这个VB程序谢谢~ 大家帮我看看这个VB程序哪里错了 请帮我看看这个VB程序!!! 大家帮我看看这个VB打字程序哪有问题? VB问题：下标越界 大家帮我看看这段程序 大家看看这是什么程序C还是vb 请帮我看看这段vb的程序 各位帮我看看这个vb程序,怎么错的