EXCEL VBA TIPS

下記のソース中の2箇所を修正してください
・Tカード番号の代入文
・暗証番号の代入文
以下ソースです
Dim objIE0
'対象画面を検索、なければ開く（必要に応じ使用してください）
Set xShell = CreateObject("Shell.Application")
win_s = False
For Each Window In xShell.Windows '対象URLが表示されているか？
If TypeName(Window.Document) = "HTMLDocument" Then
if Window.Document.url="https://portal.expay.net/servlet/FTPoLogin" then
Set objIE0 = Window '対象URLが表示→その画面を使う
win_s=true
exit for
end if
end if
next
if win_s=false then '対象URLが非表示→新しく画面を開く
Set objIE0 = CreateObject("InternetExplorer.Application")
objIE0.Visible = True
objIE0.Navigate "https://portal.expay.net/servlet/FTPoLogin"
Do While objIE0.busy = True
Loop
Do While objIE0.document.readyState <> "complete"
Loop
end if
objIE0.document.all.loginID.value="" ' Tカード番号
objIE0.document.all.pswd.value="" ' 暗証番号
objIE0.Document.links(0).click 'javascript:loginServ('FTPoLogin',%20'login')