How to split a string by words?

Question

Macros

for example
, in the line there is a suggestion how to transfer separately according to the words as in the picture?

Answer 1

https://support.office.com/ru-ru/article/%D0%A0%D0...
The separator is a space.

Answer 2

The separator in this case is a space.
Two operations are required:
1. Convert the string to an array.
2. Insert an array into a sheet.
I'm writing without an IDE, if you need to correct it:
Dim sSource As String
Dim oArr As Variant
oArr = Split(sSource, " ")
Range(Cells(1, 1), Cells(1, Ubound(oArr)).Value = oArr