Alright. Getting somewhere. Less errors. Right now, the biggest problem seems to be something in line 56 (the Sub ExportSTL line). "theObjects" does not have a parameter, so I'm guessing that "theObjects needs to be replaced with something.
Sub ExportSTL(ByVal FileName As String, ByVal...