VB なんですが、

Private Type EVENTLOGRECORD
　　（中略）
End Type
Private Declare Function OpenEventLog Lib ．．．
Private Declare Function ReadEventLog Lib ．．．
Private Declare Function CloseEventLog Lib ．．．

Public Sub main()
Dim hwnd As Long
Dim pbuf As EVENTLOGRECORD
Dim bufAddr As Long
Dim BufSize As Long
Dim ReadBytes As Long
Dim NextSize As Long
Dim Ret as Boolean
hwnd = OpenEventLog("PC名", "Application")
BufSize = 1
Ret = ReadEventLog(hwnd, 4, 0, pbuf, BufSize, ReadBytes, NextSize)　　ここ！

（中略）

Ret = CloseEventLog(hwnd)
End Sub

（ここ！）の点でエラーが出るんですが
どこがおかしいですか？