Dim sFile As String
On Error Resume Next
sFile = Dir$("U:\system\Test.exe")
If sFile <> "" Then
   Shell (blabla), vbNormalFocus
Else
   Unload Me
End If
On Error Goto 0

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de