Dim sFile As String 'Name orginal File
Dim sPath As String 'C:\Ideas\Podoview\BACKUP\
Dim nPath As String 'C:\Ideas\Podoview\BACKUP\ + Jahr
Dim mystring As String 'Textbox Eingabe
mystring = (Text1.Text)
nPath = "C:\Ideas\Podoview\BACKUP\" & (mystring) & "\"
sPath = "C:\Ideas\Podoview\BACKUP\"
If Dir((nPath), vbDirectory) = "" Then
  MkDir (nPath)
  End If
sFile = Dir$("C:\Ideas\Podoview\BACKUP\*.*", vbNormal)
While Len(sFile) > 0
  If sFile <> "." And sFile <> ".." Then
    If Year(FileDateTime(sPath & sFile)) = (mystring) Then Name (sPath & sFile) _
      As (nPath & sFile)
     End If
  sFile = Dir$
Wend
UnloadForms
End Sub