tilføje _ 2 steder i tekst og samtidigt slette

Jeg har en Macro som i kolonne A indsætter noget tekst i starten af noget eksisterende tekst.
Den vil jeg meget gerne udbygge til at kunne indsætte _ efter 8 karakter, slette den 9 karakter hoppe en frem og indsætte en _ lige efter.

Macro som den er nu:
Sub Makro1()
    Dim c As Range
    For Each c In Application.Intersect(Worksheets("Ark1").UsedRange, Worksheets("Ark1").Range("A:A"))
        c.Value = "XXYY2_" & UCase(c.Value)
    Next
End Sub

ex: tekst som den er nu før macro køres.
djsblabd
ex: tekst som den er nu efter macro køres.
XXYY2_DJSBLABD

ex: tekst som den skal være efter opgaven er løst.
XXYY2_DJ_B_LABD

Måske lidt vildt med point men det haster meget for mig og jeg håber inderligt på hurtig hjælp.