Soru Değişkeni For içerisindeki metine ekleme

[cicosz]

Merhaba, koddaki yenidata'nın sonuna değişkeni de eklemek istiyorum. Yardımcı olabilecek var mıdır?
Sayfa1 B1'deki değer 00xBA742A
Olması gereken çıktı:
Anahtar00xBA742A1
Anahtar00xBA742A2
Anahtar00xBA742A3
.
.

Sub en_yeni()
Dim yenidata As Variant
Dim i As Variant

For i = 1 To 4
    yenidata = "Anahtar" + Worksheets("Sayfa1").Range("B1").Value
Next i

End Sub

Şimdiden teşekkürler.

 

[muratboz06]

 Deneyiniz.
 yenidata = "Anahtar" + Worksheets("Sayfa1").Range("B1").Value & i

 

[cicosz]

Teşekkürler Murat Bey