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

bossda

(defun c:G7 ()
(sslength (ssget '((0 . "TEXT")(62 . 1)(1 . "7"))))
)

mccad

2. Sub G7()
3.        Dim varType(2) As Integer
4.        Dim VarData(2) As Variant
5.        varType(0) = 0: varType(1) = 62: varType(2) = 1
6.        VarData(0) = "TEXT": VarData(1) = 1: VarData(2) = "7"
7.        On Error Resume Next
8.        Dim SSet As AcadSelectionSet
9.        ThisDrawing.SelectionSets("mccad").Delete
10.        Set SSet = ThisDrawing.SelectionSets.Add("mccad")
11.        SSet.SelectOnScreen varType, VarData
12.        Dim Num As Long
13.        Num = SSet.Count
14. End Sub

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