Che tipo o numero d'errore ti viene restituito ???
Non conoscendo il programma e quindi la sua posizione nel CD si può immaginare che ti venga dato qui:
codice:
If Dir$(App.Path & "leggimi.txt") = "" Then
Dato che App.Path, trovandosi in sottocartelle, non restituisce la barra finale.
Prova anche così:
codice:
On Error GoTo Gest_err
Const NomeFile1 = "Leggimi.txt"
Const NomeFile2 = "SysLab.exe"
Dim PercorsoFile As String

PercorsoFile = App.Path
If Right(PercorsoFile, 1) <> "\" Then
  PercorsoFile = PercorsoFile & "\"
End If

If Dir(PercorsoFile & NomeFile) = "" Then
  Unload Me
Else
  Shell PercorsoFile & NomeFile2
End If
Exit Sub
   
Gest_err:
MsgBox "Error n° " & CStr(Err.Number) & vbCrLf & Err.Description, vbCritical, "Error"
Unload Me