areh » 26.06.2004 (Сб) 21:08
Что значит разбить слово на части я не совсем понял, но вот тебе функция, которая делает то что я понял из твоего примера
Function InsertSpace(ByVal Word As String) As String
Dim tmpStr As String
For i = 1 To Len(Word)
tmpStr = tmpStr & Mid(Word, i, 1) & " "
Next i
InsertSpace = tmpStr
End Function