Dim nPos As Long
Dim sChar As String
Dim i As Long
Dim sNewFile As String
 
nPos = 2  ' Position des einzufügenden Zeichens
sChar = "x"  ' Zeichen, das an Position (nPos) eingefügt werden soll
 
With List1
  For i = 0 To .ListCount - 1
    sNewFile = Left$(.List(i), nPos - 1) & sChar & Mid$(.List(i), nPos)
    Name "Pfad" & .List(i) As "Pfad" & sNewFile
  Next i
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de