Use ShellExecute to launch the default Web browser - 64 Bit!

Greetings,
I had been using following code to launch the default Web browser (Chrome) when my system was 32 bit.
Note: I had got following code from this link: http://support.microsoft.com/en-us/kb/224816

Private Declare Function ShellExecute _
                            Lib "shell32.dll" _
                            Alias "ShellExecuteA"( _
                            ByVal hwnd As Long, _
                            ByVal lpOperation As String, _
                            ByVal lpFile As String, _
                            ByVal lpParameters As String, _
                            ByVal lpDirectory As String, _
                            ByVal nShowCmd As Long) _
                            As Long

Private Sub Command1_Click()
   Dim r As Long
   r = ShellExecute(0, "open", "http://www.microsoft.com", 0, 0, 1)
End Sub

I have upgraded my system to 64 bit, but code above doesnt work anymore...
Any idea will be appreciated...

Edit: This is error picture;
http://i.cubeupload.com/1GiQUn.png

This question was asked before but there was no solution...
http://www.excelforum.com/excel-prog...ndows-7-a.html

Please note that;
There was a code in the following link for 64 bit system but that code is not working for me...
http://www.jkp-ads.com/articles/apideclarations.asp

Solved.

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

This post is double. Sorry.