Change angles of Mtext to new Angles

I have an isometric drawing with lengths and diameters along it's lines.

All mtext put at 150 angles (which is upside down) should become 330.
All mtext put at 270 angles (which is the wrong way round) should become 90.

I have put together some code, but it seems there is no way of getting the rotation of an object without showing the program 2 points.Is there any way to get the angle straight away? I don't think .getangle or .anglefromXaxis will get me anywhere.
(entget (car (entsel))) gives me no clue as to where to get the angles from.

Perhaps the radians value is stored somewhere so I can pick it up from there?
This is what I've got so far:

Code:

---

        Dim LongDiamTekst as AcadMtext
        Dim Degrees as Single
        Dim Radians as Single
        Dim Pi As String
        Pi = "3,14159265"
        Degrees = Radians * 57.29578
        Radians = ?????

        If Degrees > 145 Then
        If Degrees < 155 Then
            LongDiamTekst.Rotation = (Pi / 180# * 330#)
        End If
        End If

---

The Rotation property stores the angle. First set Degrees to the extisting Rotation prop. All angles are stored in radians.

Thank you. I worked it out with your advice, and am very happy now.