I hav a script to export dimension value and tolerance to a Excl sheet, but if i select a Hole Callout the tolerance value are 0

How do i get the Tolerance from a Hole Callout ?

Below script are a part of my code

Option Explicit
   Public swapp As SldWorks.SldWorks
   Public swModel As SldWorks.ModelDoc2
   Public swDwg As SldWorks.DrawingDoc
   Public swView As SldWorks.View
   Public swSheet As SldWorks.Sheet
   Public swdispdim As SldWorks.DisplayDimension   'Dimmension
   Public swTol As SldWorks.DimensionTolerance     'Tolerance
   Public swDim As SldWorks.Dimension
   Public swSelMgr As SldWorks.SelectionMgr
   Public swSelObj As Object
   Public SelObj As Integer
   Public Insp_Val(10) As String
   Public NumTolVals As Integer
   Public TolIsFit As Boolean
   Public idx As Long

Sub main()

   Set swapp = Application.SldWorks
   Set swModel = swapp.ActiveDoc
   Set swSelMgr = swModel.SelectionManager
   Set swdispdim = swSelMgr.GetSelectedObject6(1, 0)
   Set swDim = swdispdim.GetDimension
   Set swTol = swDim.Tolerance
   Set swSelObj = swSelMgr.GetSelectedObject5(1)
   SelObj = swSelMgr.GetSelectedObjectType2(1)
   
   Set swapp = Application.SldWorks
   Set swModel = swapp.ActiveDoc
   
           Insp_Val(2) = swDim.Value
           Debug.Print " Dimension value = " & Insp_Val(2)
           Insp_Val(4) = swTol.GetMaxValue * 1000
           Debug.Print " Max Tol Value = " & Insp_Val(4)
           Insp_Val(5) = swTol.GetMinValue * 1000
           Debug.Print " Min Tol Value = " & Insp_Val(5)

End Sub