Declare Function

Помогите прописал функцию

Private Declare Function apiNetRemoteTOD Lib "netapi32" Alias "NetRemoteTOD" (ByVal UncServerName As String, BufferPtr As Long) As Long

а VBA выдает ошибку

Complite error: Only comments may appear after End Sub, End Function, or End Property

Что это и как с этим бороться??

это объявление функции единственное в модуле или там еще что есть?

Complite error

Only comments may appear after End Sub, End Function, or End Property

Перевод с басурманского: После End Sub, End Function или End Property можно вставлять только комментарии.

Вы вставили строку "Private Declare Function ..." где-то в середине модуля? Угадал?!

Перенесите её в начало модуля:

Option Compare Database
Option Explicit

Private Declare Function apiNetRemoteTOD Lib "netapi32" Alias "NetRemoteTOD" (ByVal UncServerName As String, BufferPtr As Long) As Long

А вы пропишите объявление функции сразу после объявлений модуля, т.е. перед определением всех других функций. Примерно так

Option Compare Database
Private Declare Function apiNetRemoteTOD Lib "netapi32" Alias "NetRemoteTOD" (ByVal UncServerName As String, BufferPtr As Long) As Long 

Sub MyFunc()

End Function

Точно, я вписал в середине модуля. Всё понял исправлюсь. БАльшое спасибо.