First word in Cell as a variable

[MarkA99]

Hi
I'm trying to create a VB script in Excel that is able to take the first word in a cell (ie firstname surname) as a variable and then use it later. Can someone point me to the right commands I should use and preferably a bit of code.

Thanks in advance.

 

[njimack]

Sub test()
Dim firstname As String

With Range("A1")
    firstname = Left(.Value, WorksheetFunction.Find(" ", .Value) - 1)
End With
End Sub

 

[MarkA99]

You beauty

Thank you so much, that's been driving me mad.