Thank you very much for your help. I tried your new function code and it works great.

I created the below code but it did not work. Can anybody help me to check what was wrong with the code? Thanks.

Sub macro3()
Dim a1 As String
Dim a2 As String
Dim i As Integer

For i = 1 To 10
a1 = Get_Word("A" & i, 1)
a2 = InStr(1, "B" & i, a1)

If a2 > 0 Then

Range("C" & i).Value = a1

Else

End If

Next

End Sub