Функция удаления слов из текста, оставить только цифры в числовом формате - VBA

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

Здравствуйте, есть вопрос по дополнению функции, как сделать так, чтобы цифры получались не такими обычными а такими с пробелами после каждой 3 пример 2 521 3 745 821

Function IskluchitBukv(stroka As String) As String
    Dim i As Integer
    For i = 1 To Len(stroka)
        If InStr(1, "1234567890-", Mid(stroka, i, 1)) <> 0 Then _
            IskluchitBukv = IskluchitBukv & Mid(stroka, i, 1)
    Next
End Function

в числовом формате # ##0 пример 2 521 3 745 821

Решение задачи: «Функция удаления слов из текста, оставить только цифры в числовом формате»

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

                            Next
    IskluchitBukv = Format(IskluchitBukv, "# ### ### ##0")
End Function
                        