Più o meno così:


Stringa_da_cercare = "Totale:"
Lunghezza_Stringa = Len(Stringa_da_cercare)
i = 1
Do While (True)
If InStr(i, txtECCliente.Text, Stringa_da_cercare) > 0 Then
txtECCliente.SelStart = InStr(i, txtECCliente.Text, Stringa_da_cercare) - 1
txtECCliente.SelLength = Lunghezza_Stringa
txtECCliente.SelBold = True
i = txtECCliente.SelStart + txtECCliente.SelLength
Else
Exit Do
End If
Loop
txtECCliente.SelStart = 0