How to add the suffix A:, B:, C: in sequence when selecting 3 dimensions on the sheet using VBA.?

Option Explicit Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swModelDocExt As SldWorks.ModelDocExtension Dim swSelMgr As SldWorks.SelectionMgr Dim swDispDim As SldWorks.DisplayDimension Dim boolstatus As Boolean Sub main() ' Inicializa o SolidWorks Set swApp = Application.SldWorks