Visual Basic - Acceso directo

consegui este codigo para crear un acceso directo sin que se me pregunte por la ruta del archivo a linkear....pero no funciona. que es lo que falla?

Private Declare Function fCreateShellLink Lib "VB5STKIT.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long

Private Sub Form_Load()
resultado = fCreateShellLink("C:\Windows\Menú Inicio\Programas\Inicio", "LINK", "C:\Windows\Escritorio\archivo.exe", "")
End Sub