Problema ao usar o Call Shell

[VinnYSPL 0]

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", 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!

[Claudio Neto 3]

Estranho, quando você abre o arquivo manualmente não dá erro nenhum? Consegue executar? Seu código está limpo, simplesmente mandando abrir, não tem o que possa estar corrompendo o arquivo. O mais provável é que não seja seu código o problema.