For the iEnd, I'll start the search from CNN
and add a trim to remove the trailing space :
Private Sub Command1_Click()
Dim s As String
Dim iStart As Long
Dim iEnd As Long
s = "khFor CNN23 ON jaf;hdfhdalf"
iStart = InStr(1, s, "CNN"...