I got an answer from www.la-solutions.co.uk/.../MVBA-Rotation.htm
Dim rotationX As Double
Dim rotationY As Double
Dim rotationZ As Double
Dim scaleFactor As Double
If (Matrix3dIsXRotationYRotationZRotationScale(rotationMatrix, rotationX, rotationY, rotationZ, scaleFactor)) Then
Debug.Print "Cell rotation XYZ " & _
CStr(Round(Degrees(rotationX), 0)) & "#" & _
CStr(Round(Degrees(rotationY), 0)) & "#" & _
CStr(Round(Degrees(rotationZ), 0))
End If