مشكلة في createdocumentfromurl

أرجو مساعداتكم الغالية في مشكلتي !!!

لدي صفحة Index.htm وبها ثلاثة مربعات نص كالتالي :

txtFName

txtSName

txtLName

وبها زر أمر Button تحت إسم myButton ،،، عند النقر علية يقوم بتنفيذ حدث onClick ليرسل قيم الثلاثة مربعات النص بفانكشن يعرض رسالة تدمج الثلاثة مربعات النص معاً كالتالي :

Function ViewMsg(FName,SName,LName)
   MsgBox FName & " " & SName & " " & LName
End Function

++++++++++++++++++++++++++++++++++

قمت بربط الصفحة مع فيجوال 6.0 عن طريق مكتبة Microsoft HTML Object Library والكود كما يلي :

Private Sub Command1_Click()
    Dim m_docNU As New HTMLDocument
    Dim m_doc As HTMLDocument
    Dim txtFName As HTMLInputElement
    Dim txtSName As HTMLInputElement
    Dim txtLName As HTMLInputElement
    Dim myButton As HTMLInputElement

    ''1- تحميل الصفحة
    Set m_doc = m_docNU.createDocumentFromUrl(App.Path & "\Index.htm", vbNullString)
    Do While m_doc.readyState <> "complete"
        DoEvents
    Loop

    ''2- إقتباس عناصر التحكم
    Set txtFName = m_doc.getElementById("txtFName")
    Set txtSName = m_doc.getElementById("txtSName")
    Set txtLName = m_doc.getElementById("txtLName")
    Set myButton = m_doc.getElementById("myButton")

    ''إرسال قيم مربعات النص
    txtFName.Value = "مصطفي"
    txtSName.Value = "محمود"
    txtLName.Value = "عبد السلام"

    ''تنفيذ حدث الزر الموجود داخل الصفحة
    myButton.Click
End Sub

++++++++++++++++++++++++++++++++++

أين المشكلة :

المشكلة عند السطر البرمجي myButton.Click ،،، فعند تنفيذ الأمر لا ينفذ حدث onClick الموجود داخل الصفحة

فما هو حل المشكلة ؟؟؟

!!!!!!!!!!!!!!

طبعاً هناك كثير من الأوامر التي لا تنفذ ،،، فمثلاً لو قلنا لو لدينا Form بالصفحة عند عمل Submit من النموذج لا ينفذ العملية قط !!!

Dim frm As HTMLFormElement
Set frm = doc.getElementById("frmParams")
frm.submit

أرجو مساعدة حضراتكم

فأنا في حيرة شديدة لهذا الأمر

شكراً مقدماً