VBAでのIE操作について

VBAで証券会社にログイン→銘柄コードを入力→発注の自動化をしたいと思っています。
ログインまでは出来たのですが、『オブジェクト変数または with ブロック変数が設定されていません』とエラーが出て、銘柄コードの入力が出来ず困っています、、、

コード入力フォームのHTMLは下記になります。
Document.getElementsByName,classname,idそれぞれで入力する方法全て試してみたのですが、入力出来ませんでした、、

MsgBox .document.getElementsByName("txt_meigara_comp").Lengthでコレクションを調べたところ、0と返って来てコレクションが得られていませんでした。
name,classname,idは正しく入力したのですが、どうしたら銘柄コードに数値入力を出来るでしょうか？
ご教授していただけると幸いです。お願いします。

テスト1はログイン→コード入力をまとめたもの
テスト2はログイン後の動きに問題がある可能性を考えて、ログイン後の画面をIEで表示しておいた後にコードだけを入力するものです。
いずれでもコード入力が出来ませんでした、、、

<input name="txt_meigara_comp" class="soc-txt-meigara" id="js-soc-meigara" type="text" maxlength="5" placeholder="銘柄コード" pattern="[0-9]*" value="">


Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
Sub subWait(objIE As Object) 'IEの読み込み待機時間
Do While objIE.Busy = True Or objIE.ReadyState < READYSTATE_COMPLETE '読み込み待ち
    DoEvents
Loop

Exit Sub
End Sub

Sub テスト1()

Dim objIE As Object
Dim objShell
Dim AnhorLink As Object, AnhorLinks As Object
Dim n As Long
Set objIE = CreateObject("InternetExplorer.Application")

    Call objIE.Navigate("https://treasurenet.jip-jet.ne.jp/login.con?code=063")
    Do While objIE.Busy
    Loop
    objIE.Visible = True
    Sleep 1000
    With objIE
        .Document.forms(0).elements("customer").Value = Range("A22")
        .Document.forms(0).elements("pass").Value = Range("A23")

        .Document.forms(0).submit 'ログインボタンをクリック

        Do While objIE.Busy = True Or objIE.ReadyState <> 4
        DoEvents
        Loop
　　　　 
'ここでエラーとなってしまいます、、、
        .Document.getElementsByName("txt_meigara_comp")(0).Value = Range("A24")
    End With

End Sub

Sub テスト2()

Dim objIE As InternetExplorer
Dim objShell As Object, objWin As Object
Set objShell = CreateObject("Shell.Application")
For Each objWin In objShell.Windows
    If objWin.Name = "Internet Explorer" Then
        Set objIE = objWin
        Exit For
    End If
Next

Call subWait(objIE)

With objIE
'ここでエラーとなってしまいます、、、
    .Document.getElementsByName("txt_meigara_comp")(0).Value = Range("A24")

End With
Set objIE = Nothing

End Sub