Use Split():
Sub TestModule() Dim test As String dim frstWrd as string test = "Machine Head" frstWrd = split(test," ")(0) Debug.Print frstWrdEnd Sub