Excel ＶＢＡで株の全自動売買コミュのヘルプミィ～　　　エラー

エラーがでます。誰か改良して下さい。ちなみにtabキーが使えないので全角スペースで空白を作っているので実行時は空白は削除してね
　　
Sub Condition()

Dim D3 As Integer
Dim G3 As Integer
Dim F3 As Integer
G3 = Range("D3").Value
D3 = Range("G3").Value
F3 = Range("F3").Value

Do

　　　If (G3 / D3 <= 0.98) And (F3 >= 50) And (F3 <= 200) Then

　　　　　　Dim IEobj
　　　　　　Set IEobj = CreateObject("InternetExplorer.Application")
　　　　　　Dim URL As String
　　　　　　URL = "https://s10.kabu.co.jp/_mem_bin/members/login.asp?/members"
　　　　　　IEobj.Navigate URL
　　　　　　IEobj.Application.Visible = True

　　　　　　Do While IEobj.Busy = True
　　　　　　DoEvents
　　　　　　Loop
　　　　　　Do While IEobj.Document.ReadyState <> "complete"
　　　　　　DoEvents
　　　　　　Loop

　　　　　　IEobj.Document.all.SsLogonUser.Value = "********"
　　　　　　IEobj.Document.all.SsLogonPassword.Value = "********"
　　　　　　IEobj.Document.all.submit1.Click
　　　　　　Exit Do
　　　End If

Loop

End Sub

成功すると自動ログインする予定

上のＶＢＡは徳山秀樹さんのサンプルExcelブックを元にして作っていますなので、
ここからサンプルExcelブックをダウンロードして
http://home.cilas.net/chieru/tokuyama/download.html
↑毎日5万円を株で稼ぎ続ける方法を出してる人のホームページです。
http://pt.afl.rakuten.co.jp/c/034a267d.6554d97d/?url=http%3a%2f%2fitem.rakuten.co.jp%2fbook%2f4086841%2f