小白一枚 求各位大佬指点 万分感谢

感谢您点进我的帖子 有一个疑问想向您请教
一段网页代码如下：
<input class="pub_input" required="true" type="text" placeholder="(必填)" value="" key="取票人联系方式" regtype="notempty">
图片如上
如何利用vb编写代码 在打开程序在框内输入想要的数据。
Sub Main()

    Dim ie As Object

    Set ie = CreateObject("InternetExplorer.Application")

    ie.Visible = True

    ie.Navigate "https://www.
    While ie.ReadyState <> 4 Or ie.Busy = True

    DoEvents
    Wend
    ie.Document.getElementById("buyNum").Value = "3"
   
End Sub
   现在编写的程序如上