Public Function StringCnt(sStr As String, Optional GKS As Boolean = False) As 
 
Integer()
' GKS = GROß-Klein-Schreibung beachten
Dim nStrC As Long, sCnt As Long, N As Long, I As Long, ToFind As String
Dim nStr As String
Dim arrWerte() As Integer
 
For N = 1 To Len(sStr)
 If InStr(1, nStr, Mid(sStr, N, 1)) = 0 Then
  nStr = nStr & Mid(sStr, N, 1)
 End If
Next
 
ReDim arrWerte(Len(nStr) - 1)
 
For I = 1 To Len(nStr)
 
 nStrC = 0
 sCnt = 0
 
 ToFind = Mid(nStr, I, 1)
 
  Do
   If GKS Then
    N = InStr(nStrC + 1, sStr, ToFind)
   Else
    N = InStr(nStrC + 1, UCase(sStr), UCase(ToFind))
   End If
 
   If N = 0 Then Exit Do
 
   nStrC = N
   sCnt = sCnt + 1
  Loop
 
 [s]StringCnt = StringCnt & Trim(CStr(sCnt)) & " "[/s]
 arrWerte(I - 1) = sCnt
 
Next
 
StringCnt = arrWerte
End Function

Private Sub Command1_Click()
Dim arr() As Integer
Dim i As Integer
 
arr = StringCnt("HALLOWIEGEHTESEUCH", True)
 
For i = 0 To UBound(arr)
    List1.AddItem Format(arr(i))
Next
End Sub