kodun 25. mesajdaki kısmını aşağıdaki ile değiştirip dener misiniz

If UBound(txtDosyaAdi) < 3 Then 'bu kısım eğer 4ten az sayıda alan varsa hatalı olduğunu varsayar

    HataSay = HataSay + 1

    StrHatalar = StrHatalar & vbCrLf & "Hatalı dosya ismi : " & xMyFile & " dosyası taşınamadı." 'taşınamayan dosya adı ve sayısı kayedilir

    GoTo 10 'dosya ismi hatalı olduğu için ara basamakları atlayıp sonraki dosyaya geçmeyi sağlar

End If