da fehlt ein End If
du machst zwei if auf schliesst aber nur mit einem End If
versuchs mal so:
Dim folderName
folderName = "."
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim fullpath
fullpath = fso.GetAbsolutePathName(folderName)
If fso.FolderExists(fullpath & "\Ordner") Then
fso.copyFolder fullpath & "\Ordner", "C:\Users\XXX\Downloads\", True
Else
If fso.FileExists(fullpath & "\Text.txt") Then
fso.copyFile fullpath & "\Text.txt", "C:\Users\XXX\Downloads\", True
Else
MsgBox " "
End If
End If