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