Private Function EnumCodePagesProc(CP_Pointer&) As Long
' здесь размещается ваш код
End Function
EnumCodePagesProc является функцией обратного вызова, используемого функцией EnumSystemCodePages для перечисления кодовых страниц. Имя данной функции EnumCodePagesProc выбрано произвольно, в соответствии со сложившимися традициями
Если функция возвращает 0, EnumSystemCodePages немедленно прекращает перечисление кодовых страниц. Если возвращается ненулевое значение, EnumSystemCodePages продолжает перечисление кодовых страниц, пока это возможно
Как и все функции обратного вызова, функция EnumCodePagesProc должна находиться в стандартном модуле с ключевым словом Public