В модуле класса API функции можно объявить только локально. Чтобы это обойти нужно объявить функцию под другим именем, затем объявить обычную глобальную функцию с именем этой API функции. Например:

Private Declare Function MessageBoxFunc Lib "user32" Alias "MessageBoxA" _
(ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, _
ByVal wType As Long) As Long

Public Function MessageBox(ByVal hwnd As Long, ByVal lpText As String, _
ByVal lpCaption As String, ByVal wType As Long) As Long
MessageBox = MessageBoxFunc(hwnd, lpText, lpCaption, wType)
End Function