I am trying to record the macro for applying appearance action like applying different Texture,but the saved file is showing something like this.

<p dir="ltr" style="text-align: left; padding-left: 30px;"><span style="color: #3d3d3d;">Dim swApp As Object</span></p><p dir="ltr" style="text-align: left; padding-left: 30px;"><span style="color: #3d3d3d;">Dim Part As Object</span></p><p dir="ltr" style="text-align: left; padding-left: 30px;"><span style="color: #3d3d3d;">Dim boolstatus As Boolean</span></p><p dir="ltr" style="text-align: left; padding-left: 30px;"><span style="color: #3d3d3d;">Dim longstatus As Long, longwarnings As Long</span></p><p></p><p dir="ltr" style="text-align: left; padding-left: 30px;"><span style="color: #3d3d3d;">Sub main()</span></p><p dir="ltr" style="text-align: left; padding-left: 30px;"><span style="color: #3d3d3d;">Set swApp = Application.SldWorks</span></p><p dir="ltr" style="text-align: left; padding-left: 30px;"><span style="color: #3d3d3d;">Set Part = swApp.ActiveDoc</span></p><p></p><p dir="ltr" style="text-align: left; padding-left: 30px;"><span style="color: #3d3d3d;">Dim myModelView As Object</span></p><p dir="ltr" style="text-align: left; padding-left: 30px;"><span style="color: #3d3d3d;">Set myModelView = Part.ActiveView</span></p><p dir="ltr" style="text-align: left; padding-left: 30px;"><span style="color: #3d3d3d;">myModelView.FrameState = swWindowState_e.swWindowMaximized</span></p><p dir="ltr" style="text-align: left; padding-left: 30px;"><span style="color: #3d3d3d;">Part.ClearSelection2 True</span></p><p dir="ltr" style="text-align: left; padding-left: 30px;"><span style="color: #3d3d3d;">Part.ClearSelection2 True</span></p><p dir="ltr" style="text-align: left; padding-left: 30px;"><span style="color: #3d3d3d;">Part.ClearSelection2 True</span></p><p></p><p dir="ltr" style="text-align: left; padding-left: 30px;"><span style="color: #3d3d3d;">End Sub</span></p>