Private Sub Command1_Click()
    On Error Resume Next
    Dim objApplication As SolidEdgeFramework.Application
    Dim objSolidEdgeInsightXT  As SolidEdgeFramework.SolidEdgeInsightXT
    
    Set objApplication = GetObject(, "SolidEdge.Application")
    Set objSolidEdgeInsightXT = objApplication.SolidEdgeInsightXT
    Dim FileItemRevID As String
    Dim FileItemItemID As String
    'Initialise the variables
    FileItemItemID = ""
    FileItemRevID = ""
    FileItemType = ""
    Call objSolidEdgeInsightXT.AssignItemID(FileItemType, FileItemItemID, FileItemRevID)
    
    MsgBox (FileItemItemID)
    MsgBox (FileItemRevID)
    Set objSolidEdgeInsightXT = Nothing
    Set objApplication = Nothing
End Sub