Вставить запятую после определенных цифр. VBA - VBA/Excel

Формулировка задачи:

Уважаемые, Подскажите пожалуйста примером, как можно реализовать следующую задачу. Есть входные данные:

2028    438.5038
2132    438.6538
3127    438.7543

Нужно пройтись циклом и добавить запятую, чтобы получилось следующее:

60,51.2028    4,38.5038
60,51.2132    4,38.6538
60,51.3127    4,38.7543

Спасибо за ответы! С уважением.

Решение задачи: «Вставить запятую после определенных цифр. VBA»

textual
                            Листинг программы 
                        

                            Sub tt()
    Dim c As Range, j&
    For Each c In Selection
        j = Len(c) - 7
        If j > 0 Then
            c = Left$(c, j) & "," & Mid$(c, j + 1)
        End If
    Next
End Sub
                        