hatanın sebebi yanılmıyorsam 

If UBound(txtDosyaAdi) <> 3 Then 'bu kısım eğer 4ten farklı sayıda isim 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

dosya isminde 3 tane "_" olacağını varsayarak eksik yada fazla olma durumunda hata vermesin diye dün eklediğim yerden kaynaklanıyor.