Code to split word into diagonal cells

[dee101]

The code below will spilt a word and put each letter in separate cells, putting the letters to the right of the cell that has the word, how would you split a word out like this but put the letters in diagonal cells, so if I had the word TEST in cell A10 it would put T in B9, E in C8, S in D7 and T in E6?
Thanks

Sub SplitCells()
Dim c As Range
Dim i As Long
Application.ScreenUpdating = False
    For Each c In Selection
        For i = 1 To Len(c)
        c.Offset(0, i).Value = "" & Mid(c, i, 1) & ""
        Next i
    Next c
Application.ScreenUpdating = True
End Sub

 

[shg]

Maybe

c.Offset(-i, i).Value = Mid(c, i, 1)

 

[dee101]

That works, Thanks