Function VBA VB to get new XY point after rotate point(B) around middle point (A)

Job ID: 34365214

Budget: $10 – $30 USD

I need 1 function in VBA (ms-access):
I have 2 points A and B. I need a function to get the new XY of point B if I rotate B around A (as middle point) at a certain angle
So input is:
Point A: (-40000,-40000) ->Middle point
Point B: (60000,-10000)
Value C: Angle of rotation around A (middle point)

Output should be
New X of point B
New Y of point B