Почему команда оболочки генерирует ошибку 53 во время выполнения?

У меня есть подпрограмма, которая должна объединить все текстовые файлы в один с именем all.txt. Его следует запустить, нажав кнопку, связанную с этим подразделом, но он генерирует ошибку времени выполнения 53 Файл не найден. Код такой:

Private Sub CommandButton1_Click()
    Call Shell("copy c:\test\*.txt c:\test\all.txt", vbNormalFocus)
End Sub

Где ошибка?