Set oSketch = .GetActiveSketch2

but don't obtain Sketch name?

the code is

Sub ll1()
  Dim SwApp As SldWorks.SldWorks
  Dim SwModel As ModelDoc2
  Dim oFeat As Feature
  Set SwApp = Application.SldWorks
  Set SwModel = SwApp.ActiveDoc
  Dim oSketch As Sketch

  Dim SwSelMgr As SelectionMgr
  Dim vPtArr, SwSkethPoint As SketchPoint
 
 
  With SwModel
    Set SwSelMgr = .SelectionManager
    Set oSketch = .GetActiveSketch2

    vPtArr = oSketch.GetSketchPoints
         For Each Pt In vPtArr
           Set SwSkethPoint = Pt
           With SwSkethPoint
              Debug.Print .Type
             .Select4 False, Nothing
           End With
         Next
  End With
End Sub

*****

http://help.solidworks.com/2010/English/api/sldworksapi/Get_Hole_Series_Information_Example_VB.htm