此lisp语句用vba怎样实现，谢谢啊！

Sub G7()
       Dim varType(2) As Integer
       Dim VarData(2) As Variant
       varType(0) = 0: varType(1) = 62: varType(2) = 1
       VarData(0) = "TEXT": VarData(1) = 1: VarData(2) = "7"
       On Error Resume Next
       Dim SSet As AcadSelectionSet
       ThisDrawing.SelectionSets("mccad").Delete
       Set SSet = ThisDrawing.SelectionSets.Add("mccad")
       SSet.SelectOnScreen varType, VarData
       Dim Num As Long
       Num = SSet.Count
End Sub