Дана строка

[ДМИТРИЙ1234]

Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы. На языке VBA.

Строка "Сегодня для неё я буду тут проездом."

[MCH]

Sub www()
Dim str As String, s
str = "Сегодня для неё я буду тут проездом."
For Each s In Split(Replace(str, ".", ""))
    If Len(s) = 3 Then Debug.Print s
Next s
End Sub

[EducatedFool]

Ввиду резко возросшей активности студентов-бездельников
темы, не содержащие своих наработок, будут закрываться.

В этом разделе форума помогают разобраться в Вашем решении, а не штампуют лабы одну за другой.

Нет желания делать работу самостоятельно - обращайтесь в раздел Фриланс (там Вам всегда помогут, но не бесплатно)
Нет желания платить - выкладывайте свои наработки, и говорите, что конкретно у Вас не получается. В этом случае вы наверняка получите помочь, и ждать её придётся совсем недолго.

Впрочем, есть ещё раздел Помощь студентам - если хочется халявы, а денег жалко, - можете обратиться туда (есть небольшой шанс, что там кто-нибудь решит ваши задачки)

Ну а если наработок нет, а вы все же надеетесь получить готовое решение от профессионалов, - создавайте новую тему, и сразу указывайте цену, которую Вы готовы заплатить за решение.