Export coordinate system values to excel

Hi all, 

Need help to export user selected coordinate system X,Y,Z values to excel or text file. Values are needed to calculate differences between 2 coordinate points.  

Currently able to select only.[Snippet of the code]

'===========================================================
Allows user to select coordinate system
'===========================================================
Dim selectMe As CpfcSelections
Dim selectionOptions As IpfcSelectionOptions
Dim vbResult As VbMsgBoxResult
Set sOS = New CCpfcSelectionOptions

Set selectionOptions = sOS.Create("csys")
selectionOptions.MaxNumSels = 2
MsgBox ("Please select the require coordinate system!"), vbOKCancel
If vbResult = vbCancel Then
MsgBox ("User click cancel. Exit Sub.")
Exit Sub
Else
Set selectMe = session.Select(selectionOptions, Nothing)

'======================================================================
' User need to select a 'csys' (controls goes to CREO)
'======================================================================
If (selectMe Is Nothing) Or (selectMe.Count) = 0 Then
MsgBox ("Nothing Selected!")
Else
MsgBox ("Coordinate System Selected!")
End If
End If

Thanks in advance.