Компилятор не реагирует на код - VB

Формулировка задачи:

Здравствуйте. Использую VB6. Никаких реакций и ошибок на выполнение любого кода. В чем проблема?

Решение задачи: «Компилятор не реагирует на код»

textual
                            Листинг программы 
                        

                            Dim objWord As Object
 
Sub asd()
 
Set objWord = CreateObject("Word.Application")
  objWord.Visible = True
  objWord.Documents.Open ("D:\mob\1.docx")
  '?????????? ?????? ????? (? ???????????? ?????)
  objWord.ActiveDocument.SaveAs ("D:\mob\new_document.docx")
  objWord.ActiveDocument.Close
  objWord.Quit
 
  Set objWord = Nothing
End Sub
Sub Main()  '''?????? ??? ???????
Call asd
 
End Sub
                        