How to extract the first word from a string in VBA (Excel)?

For example, if I had:

Sub TestModule()
    Dim test As String
    test = "Machine Head"
End Sub

How would I extract the word Machine and assign it to a variable? I have tried using the Search and Left functions but have not had much success.

Cheers!