<code>Dim myFile As String
Dim lPos As Long
Dim myExt As String
 
myFile = "testtext.txt"  <font color=green>' oder eben die anderen 
' Varianten</font>
 
<font color=green>' Datei-Extension extrahieren</font>
myExt = ""
lPos = InStrRev(myFile, ".")
If lPos > 0 Then
  myExt = Mid$(myFile, lPos + 1)
End If
 
While Len(myExt) < 3: myExt = myExt & "_": Wend
 
If lPos > 0 Then
  myFile = Left$(myFile, lPos) & myExt
Else
  myFile = myFile & "." & myExt
End If<code>