работа со строками. VBA

[brans]

Вот какая задача: например в ячейке А17 написанно СОКОЛОВ, в В17 СЕРГЕЙ, а в С17 ВАИЛЬЕВИЧ, в модуле нужно записать программу, которая в ячейку Е17 выводила бы полностью фамилию имя и отчество, я пробовала это сделать, вот оцените:

Sub cjrjkjd()
p = Cells(17, 1)
a = Cells(17, 2)
i = Cells(17, 3)
Cells(17, 5) = p + a + i
End Sub

получилось без пробелов((((
затем в другом модуле нужно написать программу, чтоб из ячейки А17-С17 получить запись СОКОЛОВ С.В. в ячейке А20

Public Sub рпмлрпам()
p = Cells(17, 1)
a = Cells(17, 2)
i = Cells(17, 3)
Cells(20, 1) = StrConv(Cells(17, 1), vbUpperCase) + Left(Cells(17, 2), 1) + Left(Cells(17, 3), 1)
End Sub

только тоже косячёк какойто есть((((

затем в ячейку А23 нужно с помощью друго модуля нужно записать СОКОЛОВ С.В. только уже из ячейки Е17, вот это и вообще даже не представляю как сделать(((((((( и ещё в следующем модуле нужно из ячейки Е17 записать в ячейки А26, В26, С26 отдельно фамилию, имя и отчество(((
иожет быть кто-нибудь заинтересуется моим вопросом и сможет подсказать мне как это сделать....