Search words in Sheet and apply bold style

[AsifShah]

Hello Everyone
I hope everyone fine.
Please help me on bold few words in sheet1.range("A1") on Criteria
Criteria = textbox1.text & " " & textbox2 & " " & textbox3

i'm making a certificate in which student name or some other information will show in bold style.
Sheet1.range("a1") value

This is to certify that Mr Muhammad Abbas S/O Miraj Dm By caste Abro . We proudly certify that the student bears an excellent moral and character. During her entire academic session she has neither displayed any violence nor anti-social behaviour towards others.

Same like bold Name, Father name and caste

 

[Legacy 143009]

Like this?

Sub test()
  Dim lRow As Long, i As Long
  lRow = Cells(Rows.Count, "A").End(xlUp).Row
  Application.ScreenUpdating = False
  For i = 1 To lRow
    sToFind = textbox1.text & " " & textbox2 & " " & textbox3
    iSeek = InStr(1, Cells(i, "A").Value, sToFind)
    Do While iSeek > 0
      Cells(i, "A").Characters(iSeek, Len(sToFind)).Font.Bold = True
      iSeek = InStr(iSeek + 1, Cells(i, "A").Value, sToFind)
    Loop
  Next
  Application.ScreenUpdating = True
End Sub