divide string using a symbole in vba excel code example

Example: vba split string

Dim names() As String
names = Split( "John Paul Smith" ,",")