Excel Üzerinden Mp3 ID3 (Etiketleme)

[hsayar]

Arkadaşlar bir arkadaşımdan aldığım program ile klasörden çağırdığım mp3 lerin adlarını bir liste ile otomik değiştirebiliyorum.

Ama ben Bu programa ID3 etiketlerini oda olmazla en azından
mp3 sağ tıklyınca açılan özellikler>>özet/gelişmiş sekmesindeki

Sanatçı
Albüm Başlığı
Yıl
Parça Numarası
Tarz

Başlık
Açıklama

kısımlarını dolduracak bir makrayo ihtiyacım var.

Bun Kodlar b sütununa dosyaları listeliyor ve a sütununa sayıyor

Sub Listele()
Dim Dosya

Dim i, p As Integer
Dim k, f As String

Range("A3:C102").Select ' a3 ile c102 arasındaki bölgede yaklaşık 100 kadar satır alır.
Selection.ClearContents
Range("A2").Select

k = Cells(2, 4) ' grertetret
f = Left(k, 2)

ChDrive f
ChDir (k)
Dosya = Dir("*.*")
i = 3
While Dosya <> ""
Cells(i, 2) = Dosya
Cells(i, 1) = i - 2
Dosya = Dir
i = i + 1
Wend

Cells(1, 5).Value = i

End Sub

Bu kodlarda c hücresine vermiş olduğunuz yeni dosyaadlarını değiştiriyor.

Sub Degistir()

Dim eski, yeni
Dim k, f, r As String
Dim p As Integer

If MsgBox("Değişiklikleri Onaylıyor musunuz?", vbQuestion + vbYesNo) <> vbYes Then Exit Sub

k = Cells(2, 4) 'klasör yolu
f = Left(k, 2)

ChDrive f
ChDir (k)


For p = 3 To 102

If Cells(p, 3).Value <> "" Then
eski = Cells(p, 2).Value
yeni = Cells(p, 3).Value

Name k & "\" & eski As k & "\" & yeni
End If

Next

r = WorksheetFunction.CountA(Range("c3:c102"))

MsgBox r & " adet dosyanın ismi değiştirilmiştir"

Range("A3:C102").Select ' a3 ile c102 arasındaki bölgede yaklaşık 100 kadar satır alır.
Selection.ClearContents
Range("A2").Select

End Sub

Şimdi buraya tagle özelliği nasıl koyarım?