If Not oFSO.FolderExists(App.Path & "\" & File1.FileName) Then
  ' Nein! Jetzt erstellen...
  If oFSO.CreateFolder(App.Path & "\" & File1.FileName) Is Nothing Then
    ' Ordner wurde korrekt erstellt!
  End If
End If

On Error Resume Next

'überprüfen ob der Odner existiert
If Not FolderExists(Label3.Caption) Then
    'Ordner existiert
    frmdlneu.Show
Else
        'Ordner existiert nicht
        On Error Resume Next
        If oFSO.CreateFolder(Label3.Caption) Then
        'Ordner wurde erfolgreich angelegt
        frmdlneu.Show
 
        End If
End If