Option Explicit
 
Private Declare Function CloseHandle Lib "kernel32" _
  (ByVal hObject As Long) As Long
 
Private Declare Function OpenProcess Lib "kernel32" _
  (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As _
   Long, ByVal dwProcessId As Long) As Long
 
Private Declare Function GetExitCodeProcess Lib "kernel32" _
  (ByVal hProcess As Long, lpExitCode As Long) As Long
 
Private Declare Function TerminateProcess Lib "kernel32" _
  (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
 
Const STILL_ACTIVE = &H103
Const PROCESS_ALL_ACCESS = &H1F0FFF
 
Public Function IsTaskActive(lTaskID As Long) As Boolean
  Dim lHwnd         As Long
  Dim lExitCode     As Long
 
  lHwnd = OpenProcess(PROCESS_ALL_ACCESS, False, lTaskID)
  Call GetExitCodeProcess(lHwnd, lExitCode)
  Call CloseHandle(lHwnd)
 
  IsTaskActive = IIf(lExitCode = STILL_ACTIVE, True, False)
 
End Function

  ' Array in dem wir uns die TaskIDs speichern
  Private laTaskIDs() As Long
  ' eine Möglichkeit zum abbruch ist m,eist auch nicht verkehrt
  Private bAbbort     As Boolean  
 
  ' Array für die TaskID's dimensioneieren
  ReDim laTaskIDs(1 To 5)
 
  Do While Not EOF(1)
    '  ...
    ' Dein Schleifencode
    ' ...
    ' ein kleiner zähler für mich
    Static lNextTask  As Long
    Do
      ' wir bleiben so lange in der Schleife hier, bis einer der 5 Tasks
      ' verschwunden ist
      DoEvents
      lNextTask = lNextTask + 1
      If lNextTask > 5 Then
        lNextTask = 1
      End If
      If Not IsTaskActive(laTaskIDs(lNextTask)) Then
        ' Wenn dieser Task schon weg ist, dann einen neuen starten
        laTaskIDs(lNextTask) = Shell("" + Irfan + " " + spalte1 + " " + Befehl _
          + _
            "" + spalte1 + "" + ext2 + "")
        'laTaskIDs(lNextTask) = Shell("C:WinNTNotepad.exe")
        ' und raus hier, damit wir mit dem nächsten weitermachen können
        Exit Do
      End If
    Loop Until bAbbort
    '  ...
    ' Dein Schleifencode
    ' ...
  Loop
  Close #1