Place Text box at Mouse Pointer Position on a page

[Thinus Bothma]

I want to insert a Text box at the Mouse have the following to determine the position of the pointer:

    Dim llCoord As POINTAPI
    Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
     'Create custom variable that holds two integers
    Type POINTAPI
        Xcoord As Long
        Ycoord As Long
    End Type
    Sub GetCursorPosition()
         'Get the cursor positions
        GetCursorPos llCoord
         'Display the cursor position coordinates
        MsgBox "X Position: " & llCoord.Xcoord & vbNewLine & "Y Position: " & llCoord.Ycoord
    End Sub

To insert the Text Box I have:

Sub mark()
    Dim Box As Shape
    Set Box = ActiveDocument.Shapes.AddTextbox( _
        Orientation:=msoTextOrientationHorizontal, _
        Left:=25, Top:=25, Width:=25, Height:=25)
        Box.Line.Visible = msoFalse
        Box.TextFrame.TextRange.Font.Size = 20
        Box.TextFrame.TextRange.Font.Bold = msoTrue
        Box.TextFrame.TextRange.Font.ColorIndex = wdRed
        Box.TextFrame.TextRange.InsertSymbol 252, "Wingdings", True
      
        With Selection.Range
        With Box
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
        .Left =llCoord.Xcoord
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
        .Top = llCoord.Ycoord
        End With
        End With
End Sub

This is not working as the llCoord.Ycoord and llCoord.Xcoord is not relative to the page. I know that 72 points = 1 inc = 2.54 cm. But if you scroll or zoom this does not work anymore.

How do I get the pointer position relative to the page or how do I place the textbox on llCoord.Ycoord and llCoord.Xcoord

Kind Regards