Write this to the declaration part of your module:
Type POINTAPI
x As Long
y As Long
End Type

Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Write this into sub main:
Dim z As POINTAPI
GetCursorPos z
MsgBox ("x: " & z.x & "y: " & z.y)