need help converting lisp ssget code to vba

[aridzv]

Hi.

I need help converting this lisp code to VBA:

  (setq ss (ssget '((0 . "INSERT"))))
  
  (repeat (setq i (sslength ss))
    (setq e (ssname ss (setq i (1- i))))
    (alert (cdr (assoc 2 (entget e))))
  )

thanks,

aridzv

[tim11_manhhieu · Accepted solution]

Sub GetBlockNames()
    Dim ent As Object
    Dim ss As Object
    Dim i As Integer
    
    Set ss = ThisDrawing.SelectionSets.Add("SS")
    ss.SelectOnScreen
    
    For i = 0 To ss.Count - 1
        Set ent = ss.Item(i)
        
        If ent.ObjectName = "AcDbBlockReference" Then
            MsgBox ent.Name
        End If
    Next i
    
    ThisDrawing.SelectionSets.Item("SS").Delete
End Sub