File1.Path = Dir1.Path
File1.Pattern = "*.*"
File1.Refresh
 
Dim i As Integer
Dim iLen As Integer
Dim nCount As Long
Dim sPath As String
Dim sExt As String
Dim iPos As Integer
 
sPath = Dir1.Path
If Right$(sPath, 1) <> "\" Then sPath = sPath & "\"
 
nCount = Val(Text2.Text)
iLen = Len(Text2.Text)
 
With File1
  For i = 0 To .ListCount - 1
    sExt =""
    iPos = InStrRev(.List(i), ".")
    If iPos > 0 Then sExt = Mid$(.List(i), iPos)
    Name sPath & .List(i) As sPath & Text1.Text & Format$(nCount, String$(iLen, _
      "0")) & sExt
    nCount = nCount + 1
  Next i
End With