Sólo tienes que usar las APIs «GetCursorPos» y «SetCursorPos»;
 por ejemplo, para conocer la posición actual del puntero del ratón:

Dim P As POINTAPI
    GetCursorPos P
    Debug.Print "El puntero está en (" & P.X & "," & P.Y & ")"

Para establecer la posición del puntero:

SetCursorPos 30, 40

Las declaraciones de las APIs son las siguientes:

Private Type POINTAPI
    X As Long
    Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long