Sub Main()
  '...
  Dim bFileExist As Boolean
 
  bFileExist = FileExists("C:inrgendwas.txt")
 
  If bFileExist Then
    ' Wenn die Datei existiert dann Form anzeigen
    frmStart.Show
  Else
    ' Wenn nicht, dann halt irgendwas anderes machen
  End If
  '...
End Sub
 
Public Function FileExists(sFileName As String) As Boolean
  On Error GoTo error
 
  bFileExists = FileDateTime(sFileName)
 
  Exit Function
error:
  bFileExists = False
End Function