Public Sub AddMaterialToLibrary( _
   ByVal bstrMatName As String, _
   ByVal bstrLibrary As String, _
   ByVal bstrMaterialPath As String, _
   ByVal lNumProps As Long, _
   ByVal varPropList As Variant, _
   ByVal bstrFaceStyle As String, _
   ByVal bstrFillStyle As String _
)