Search for specific word in excel and paste it in the next column(not sure how to start)

I am just guessing but maybe

Sub Test()
Dim ws As Worksheet: Set ws = ThisWorkbook.ActiveSheet
Dim i As Long, LR As Long
Dim j As Integer

With ws
LR = .Cells(Rows.Count, 1).End(xlUp).Row

   .Columns("B").ClearContents

On Error Resume Next
    For i = 1 To LR
        For j = 1 To Len(.Cells(i, 1).Value)
            If Mid(.Cells(i, 1).Value, j, 1) = " " Or Mid(.Cells(i, 1).Value, j, 1) = "," Then
                .Cells(i, 2).Value = Left(.Cells(i, 1).Value, j - 1)
                Exit For
            Else
                .Cells(i, 2).Value = .Cells(i, 1).Value
            End If
        Next j
    Next i

End With

End Sub

Amended code

I think I might misunderstood your request. Try this file. The input box is case sensitive