Оставить Только Первые Буквы Слов В Предложении

Задача такая:
Есть файл с вопросами и ответами по некоторым предметам.
Нужно оставить только первые буквы слов в предложении и после каждой буквы нужно поставить точку.

Например:
Самая большая страна на Земле? - Россия
С. б. с. н. З. - Р.

За ранее спасибо за ответ.

Пробовал функцию,

Function First_Symbol(stroka As String) As String
For Each a In Split(stroka, " ")
strok = strok & " " & Left(a, 1)
Next
First_Symbol = Mid(strok, 2)
End Function

но это отрабатывает только для одной строки.
Мне нужно весь лист сразу отформатировать.