Foro de elhacker.NET

Buenas tengo un problema con una función (Realmente llevo mucho tiempo sin programar y ando haciendo pequeñas "funciones" para generalizarme de nuevo con VB6) lo que mi funcion hace es listar las ventanas, ver si estan visible si es correcto obtiene el caption y luego la almacena en un array.

El problema es que la función no me sirve, no puedo obtener los valores del array para listarlo, no se si es que no manejo bien el array... Busque ayuda (bastante) en Internet y la mayoría de ejemplos lista todo los caption de una vez en algún control pero no consigo un ejemplo en Array.
Aqui anexo el codigo esto va en un Modulo .Bas:

Código:

' Lista las ventanas
Public Declare Function EnumWindows Lib "user32" ( _
                 ByVal wndenmprc As Long, _
                 ByVal lParam As Long) As Long
        
' Obtener el título de la ventana
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

'LISTA VENTANAS
Public ListEnumWindow() As String
Public Proc As Integer

Public Function mEnumWindows(ByVal wHwnd As Long, ByVal lParam As Long) As Long
Dim wLen As Long
Dim GetText As Long
Dim wText As String

If IsWindowVisible(wHwnd) <> 0 Then
    wLen = GetWindowTextLength(wHwnd)
    If wLen > 0 Then
        wText = Space$(wLen + 1)
        GetWindowText wHwnd, wText, Len(wText)
            Proc = Proc + 1
            ReDim Preserve ListEnumWindow(1 To Proc)
            ListEnumWindow(Proc) = wText
    Else
        'COMANDO ELSE
    End If
Else
    'COMANDO ELSE
End If
End Function

Y para ejecutarlo lo hago de la siguiente manera:

Código:

EnumWindows AddressOf mEnumWindows, 0&

Sera que me pueden brinda una mano en que hago mal?

Gracias y saludos.