Option Explicit
Const iInterval = 15
Dim iMinute As Integer

Private Sub Form_Load()
  <font color=green>' Timer initialisieren</font>
  Timer1.Interval = 60000
  Timer1.Enabled = True
 
  iMinute = 0
End Sub

Private Sub Timer1_Timer()
  Dim sFile As String
 
  <font color=green>' Sind es schon 15 Minuten?</font>
  iMinute = iMinute + 1
  If iMinute >= iInterval Then
    iMinute = 0
 
    <font color=green>' Hier die Überprüfung erledigen...</font>
    On Error Resume Next
    sFile = "IrgendEineDatei"
    If Dir$(Path & sFile) Then
      MsgBox "Jepp - Datei ist vorhanden!"
    End If
    On Error Goto 0
  End If
End Sub