Dim characters() As Char = "my mother is a great lady"
For Each c As Char In characters
'look for the letters
Next c
Dim target = "abcde".ToCharArray
Dim input = "my mother is a great lady".ToCharArray
Dim results = From x In target Select New With {.Character = x, .Count = input.Count(Function(y) y = x)}
For Each result In results
With result
Debug.WriteLine(String.Format("{0} : {1}", .Character, .Count))
End With
Next