Изменить цвет некоторых символов в ячейке

У меня есть предложение «Мне нужно 50 таких, пожалуйста» в ячейке A1. Я хочу сделать любые числовые символы красным текстом (только числовые символы). Как мне это сделать? Вот рамка того, что у меня есть ...

Sub RedText()

Dim i As Integer

For i = 1 To Len(Cells(1, 1).Value)
    If IsNumeric(Mid(Cells(1, 1).Value, i, 1)) = True Then
        'make the character red text
    End If
Next

End Sub

Любая помощь будет принята с благодарностью.