Excel VBA browser opening alot of pages from single link

[anajetli]

I am using the following lines



Public Sub NavigateToURL(argURL As String)


Const READYSTATE_COMPLETE As Integer = 4


Dim objIE As Object

Set objIE = CreateObject("InternetExplorer.Application")




Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe -url " & argURL)


With objIE
.Visible = True
.Silent = True
.Navigate argURL


'Run and Wait, if you intend on passing variables at a later stage
Do While .Busy
DoEvents
Loop

Do While .ReadyState <> 4
DoEvents
Loop
End With



'objIE.Quit
Set objIE = Nothing

End Sub

----------------------------------------


Sub SendSMS()
Call NavigateToURL(Sheets("Info").Range("C16").Value)
End Sub



The problem is that my url is
http://ocean.pk/api/send.php?username=xyz&secret=aaaaaaa&text=Hello World. This is first msg World. This is first msg

now the chrome is opening links like
1st window
http://ocean.pk/api/send.php?username=xyz&secret=aaaaaaa&text=Hello World. This is first msg

2nd window
world./

3rd window
This/

and so on...


what should I do ....?????