rica ederim)
iyi çalışmalar
Not isterseniz for x yerine dizideki tüm elemanları ekleyen aşağıdaki döngüyü de kullanabilirsiniz

For Each xEleman In TrhDz

    Metin0 = Metin0 & " - " & xEleman 

Next xEleman