Attribute VB_Name = "entry" Public Const szNAME As String = "Certificate Services VB Policy" Public Const szDESCRIPTION As String = "VB Policy Module (Sample)" Sub main() End Sub