How to get co-ordinate of activated view with respect to that view ?

Module Module1
 
    Dim theSession As Session = Session.GetSession()Dim workPart As Part = theSession.Parts.WorkDim theUI As UI = UI.GetUI 
 
    Sub Main() 
        Dim X, Xx, Y, Z AsDouble 
        If IsNothing(theSession.Parts.Work)Then'active part requiredReturnEndIf 
        Dim dwgsheet As Drawings.DrawingSheet
        dwgsheet = workPart.DrawingSheets.CurrentDrawingSheet 
        ForEach View As Drawings.DraftingViewIn dwgsheet.SheetDraftingViewsIf View.IsActiveForSketching=TrueThen
                X = View.AbsoluteOrigin.X
                Y = View.AbsoluteOrigin.Y
                Z = View.AbsoluteOrigin.Z' MsgBox(CStr(X))MsgBox(CStr(Xx))EndIf 
        NextEndSub 
 
EndModule