Function doesn't work in my program. [SOLVED]

[hothead]

Here is a function I found on the internet:

'I put the function inside a module.
Public Sub DoEnumSubKeys(ByVal inMainKey As Long, ByVal inSubKey As String)
    Dim mKey As Long
    Dim mBuffer As String * 256
    Dim mBufSize As Long
    Dim mClassBuffer As String * 256
    Dim mClassBufSize As Long
    Dim typLastWriteTime As FILETIME
    Dim mSubKeyName As String
    Dim mSubKeyValue As String
    Dim mValType As Long
    Dim mIndex As Integer
    Set colSubKeys = New Collection
    If RegOpenKeyEx(inMainKey, inSubKey, 0&, KEY_ALL_ACCESS, mKey) <> 0 Then
        MsgBox "Unable to open a subkey"
        Exit Sub
    End If
    mIndex = 0
    Do
        mClassBuffer = ""
        mClassBufSize = 0
        mBufSize = 256
        mSubKeyName = Space$(mBufSize)
        mResult = RegEnumKeyEx(mKey, mIndex, mSubKeyName, mBufSize, 0, mClassBuffer, mClassBufSize, typLastWriteTime)
        If mResult <> ERR_MORE_DATA And mResult <> 0 Then
             Exit Do
        End If
        mSubKeyName = Left$(mSubKeyName, InStr(mSubKeyName, Chr$(0)) - 1)
        colSubKeys.Add mSubKeyName
        mIndex = mIndex + 1
    Loop
    RegCloseKey mKey
    For i = 1 To colSubKeys.Count
        DoEvents
        If mStopFlag Then
             Exit For
        End If
    Next i
    Set colSubKeys = Nothing
End Sub
 
'This is in another form.
Private Sub Form_Load()
    DoEnumSubKeys HKEY_LOCAL_MACHINE, "SOFTWARE\Gitmail\Profiles"
    CenterForm Me
    If Profiles.ListCount > 0 Then Delete.Enabled = True
    If colSubKeys.Count > 0 Then Profiles.AddItem colSubKeys(i)
End Sub

The function was working fine last night, now it refuses to work in my program, yet it will work in any other program. I know I didn't set the colSubKeys variable, but I don't get any errors; just the message box that says it can't open the subkey, and like I said before, it worked great last night. What's wrong?