[Resolvido] Contar caracteres ">" ou "<"

Viva,

O código que se segue serve para contar os "Espaços" existentes numa String:

Código:

Function SpaceCount(myData) As Integer
Dim intChr As Integer
Dim intCount As Integer
For intChr = 1 To Len(myData)
If Mid(myData, intChr, 1) = Space(1) Then
intCount = intCount + 1
End If
' allow for window events in loop
DoEvents
Next intChr
SpaceCount = intCount
End Function

Mas o que eu queria era contar o número de caracteres ">" ou "<" existentes.

Podem-me ajudar?

Obrigado

Bruno Gordino

Ola;

Assim conta de certeza os ">";

If Mid(myData, intChr, 1) = ">" Then

Assim conta ambos;

If Mid(myData, intChr, 1) = ">" Or Mid(myData, intChr, 1) = "<" Then

Viva Sr, João Paulo

Funciona, muito obrigado mais uma vez pela sua disponibilidade.

Cumprimentos

Bruno Gordino

Obrigado pelo retorno o forum agradece.