Public Sub AddMaterial( _
   ByVal bstrMatName As String, _
   ByVal lNumProps As Long, _
   ByVal varPropList As Variant, _
   ByVal bstrFaceStyle As String, _
   ByVal bstrFillStyle As String, _
   ByVal bstrVSPlusStyle As String _
)