SensitivityLabel

 get

Sub getSensitivityLabel()
    Dim myLabelInfo
    Set myLabelInfo = Application.ActiveWorkbook.SensitivityLabel.GetLabel()
    Debug.Print (myLabelInfo.LabelId)
    Debug.Print (myLabelInfo.LabelName)
End Sub

set 

Sub setSensitivityLabel()
     Dim wb
     Set wb = Workbooks.Add
    
    Dim myLabelInfo, context
    Set myLabelInfo = wb.SensitivityLabel.CreateLabelInfo()
    Set context = CreateObject("Scripting.Dictionary")
    With myLabelInfo
        .IsEnabled = True
        .AssignmentMethod = MsoAssignmentMethod.PRIVILEGED
         .LabelId = "0dd5db4b-78fb-42ac-8616-2bbd1a698c72"
         .LabelName = "EXTERNAL"
         .SetDate = Now()
    End With
    
    wb.SensitivityLabel.SetLabel myLabelInfo, context
    wb.SaveAs Filename:="C:\Users\jackli\Desktop\Book1.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        
        wb.Close SaveChanges:=True
End Sub