Dim i As Integer
        Dim strDateiname As String
 
        For i = 500 To 0 Step -1
            strDateiname = "test" + i.ToString.Trim
            If File.Exists(strDateiname) Then Exit For
        Next i
        strDateiname = "test" + (i + 1).ToString.Trim
        MsgBox(strDateiname)