' aufrufen z.B. so :
Debug.Print NextName("C:Test", "Datei", ".txt")
 
Public Function NextName(sPath As String, sBaseName As String, sExt As String) _
  As String
  Dim sFile     As String
  Dim lMax      As Long
  Dim sTemp     As String
  Dim lTemp     As Long
 
  If Left(sPath, 1) <> "" Then sPath = sPath & ""
 
  sFile = Dir(sPath, vbNormal)
  ' Alle Dateien des Paths prüfen
  Do While sFile <> ""
    If InStr(1, sFile, sBaseName, vbTextCompare) > 0 And _
       InStr(1, sFile, sExt, vbTextCompare) > 0 Then
      ' Wenn Der BaseName und die Extention passen, dann
      ' die Nr der Datei extrahieren
      sTemp = Mid(sFile, Len(sBaseName) + 1, Len(sFile) - Len(sBaseName) - Len( _
        sExt))
      ' prüfen ob das auch ein numerischer wert ist
      If IsNumeric(sTemp) Then
        lTemp = CLng(sTemp)
        ' und schauen ob es der größte Wert bis jetzt ist
        If lTemp > lMax Then lMax = lTemp
      End If
    End If
    sFile = Dir
  Loop
 
  ' Den namen zusammensetzten
  NextName = sBaseName & CStr(lMax + 1) & sExt
End Function