Replacer for AddressOf operator in VBA?

[Pirre001]

I get "Syntax Error" when i put this first code in to a button. And what I can understand I can't use AddressOf operator in VBA (Microsoft Access). So my question is how I write this code so it works in VBA?

Button:

EnumWindows AddressOf EnumWindowsProc, 0

Option Compare Database
Option Explicit

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long 
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long 
Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long 

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long 
Dim Length As Long 
Dim sName As String 
Dim Temp As String 
Static iCount As Integer 

iCount = iCount + 1 
Length = GetWindowTextLength(hwnd) + 1 

If Length > 1 Then 
sName = Space(Length) 
GetWindowText hwnd, sName, Length 
If Left(sName, Length - 1) Like "Order*" Then MsgBox "window found!" 
End If 

EnumWindowsProc = 1 
End Function