Function GetCharsCount(ByVal sText As String, Optional ByVal bUcase As Boolean = False) As Int32()
        Dim aiRet(0 To 255) As Int32
        If sText.Length > 0 Then
            If bUcase Then sText = sText.ToUpper
            Dim abChars() As Char = sText.ToCharArray
            For i As Int32 = 0 To sText.Length - 1
                aiRet(Convert.ToByte(abChars(i))) += 1
            Next
        End If
        Return aiRet
    End Function

'=====================
'EXEMPLE D'UTILISATION
'=====================
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        Dim aiChars() As Int32 = GetCharsCount(TextBox1.Text, True)
        For i As Int32 = 0 To 255
            If aiChars(i) > 0 Then ListBox1.Items.Add(Convert.ToChar(i) & "          " & aiChars(i).ToString)
        Next
    End Sub

Function GetCharsCount(ByVal sText As String, Optional ByVal bUcase As Boolean = False)  As Long()
    Dim alRet(0 To 255) As Long, i As Long,  b As Integer
    If bUcase Then sText = UCase$(sText)
    For i = 1 To Len(sText)
        b = Asc(Mid$(sText, i, 1))
        alRet(b) = alRet(b) + 1
    Next i
    GetCharsCount = alRet
    Erase alRet
End Function

'=====================
'EXEMPLE  D'UTILISATION
'=====================
Private Sub Command1_Click()
    Dim alChars() As Long, i As Integer
    
    List1.Clear
    alChars = GetCharsCount(Text1.Text)
    For i = 0 To 255
        If alChars(i) > 0 Then List1.AddItem Chr$(i) & "          " & CStr(alChars(i))
    Next i
End Sub

type
  TCharsCounter = array[AnsiChar] of integer;
function CountChars(const S : AnsiString; var MinRange, MaxRange: Ansichar): TCharsCounter;
var N : integer;
    C : AnsiChar;
begin
  for C := low(result) to high(result) do
    result[C] := 0;
  MinRange := #255;
  MaxRange := #0;
  for N := 1 to Length(S) do
  begin
    inc(result[S[N]]);
    if S[N] < MinRange then
      MinRange := S[N];
    if S[N] > MaxRange then
      MaxRange := S[N];
  end;
end;