Dim sFile As String
Dim sPath As String
Dim lSize As Long
Dim bFound As Boolean
 
sPath = App.Path & IIF(Right$(App.Path, 1) <> "\", "\", "")
 
sFile = Dir(sPath & "*.*")
bFound = False
 
While sFile <> "" And Not bFound
  If sFile <> "." And sFile <> ".." Then
    lSize = FileLen(sPath & sFile)
    If lSize = 100000 Then
      Shell sPath & sFile
      bFound = True
    End If
  End If
Wend