Dim i As Integer
Dim Temp1, Temp2, Temp3, temp4 As String
Dim TempX1, TempX2 As Integer
For i = 1 To 7000
      Temp1 = Save1.InitialDirectory
      TempX1 = Len(Temp1)
      TempX2 = TempX1 - 1
      Temp2 = Temp1.Substring(TempX2)
      If Not Temp2 = "\" Then
            Temp1 = Temp1 & "\"
      End If
      Temp1 = Temp1 & "Dokument" & i & ".btk"
       If not VBEX_FileExists(Temp1) Then
            Temp2 = VBEX_GetFileFromPath(Temp1)
            TempX1 = Len(Temp2)
            TempX2 = TempX1 - 4
            Temp3 = Temp2.Substring(0, TempX2)
            MsgBox(Temp3)
            Exit For
       End If
Next