Прописать код " поиск результатов по Ф. И. О. " - VB

Option Explicit
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 Form_Load()
    Dim s$, n&
    s = "http://www.google.com/search?q=Вася Пупкин?"
    n = ShellExecute(0, "open", s, 0, 0, 1)
End Sub