Problema ao usar o Call Shell

Ola sou novato com VB eu estou tendo um pequeno problema e que na hora que a função call shell para abrir um arquivo .exe. Ele da um erro de "Files are corrupted!! Please, full check" Ele deixa o arquivo corrompido e não abre o exe.

Private Sub menu_Click(Index As Integer)
On Error GoTo Hell

Select Case Index
 Case "0"
 Call Shell(App.Path & "\system\l2.exe", vbNormalFocus)
 End
 Case "1"
 ShellExecute 0&, vbNullString, "[http://www.google.com.br",](http://www.google.com.br) vbNullString, vbNullString, SW_SHOWNORMAL
 End
 Case "2"
 End
 Case "3"
 End
 Case "4"
 Me.WindowState = 1
 End Select

Hell:
If Err.Number = "53" Then
MsgBox "Arquivo L2.exe não encontrado.", vbCritical, "L2 StarFox Softwares"
End
End If
End Sub Ficarei grato se alguem poder me ajudar!