Visual Basic - Ejecutar acceso directo

Necesito saber como puedo ejecutar un .lnk, es decir, un acceso directo.He encontrado este codigo que dicen que funciona, pero a mi no me funciona, no se si estoy haciendo algo mal, o es que no funciona de por si.

Ejemplo:

Dim a as long

a=Shell("start" & "C:\Prueba.lnk")