Private Sub Command1_Click()
Dim str As String, i As Integer, x As Integer
str = "<testing<1234<<5678><abc123<"
For i = 1 To Len(str)
If Mid(str, i, 1) = "<" Then
x = x + 1
MsgBox "the number of occurences of < in the string is :" & x
~~ please don't PM me regarding code, I only reply to personnal messages ~~