Задана строка. Написать программу, которая находит количество символов, встречающихся более одного раза

Private Sub CommandButton1_Click()
Dim Str() As String
Dim num, i, j As Integer
Dim check As Boolean
Str = TextBox1.Text
num = 0
For i = 0 To Len(Str)
    check = False
    For j = i + 1 To Len(Str)
        If Str(j) = Str(i) Then
        check = True
        Erase Str(j, 1)
        End If
    Next j
 If (check) Then
 num = num + 1
 End If
 Next i
 Label2.Caption = num
End Sub

Private Sub CommandButton1_Click()
Dim s As String, c As String, n As Long
Caption = ""
s = TextBox1
While Len(s)
  c = VBA.Left$(s, 1)
  n = Len(s) - Len(Replace(s, c, ""))
  If n > 1 Then Caption = Caption & c
  s = Replace(s, c, "")
Wend
Caption = Caption & ": " & Len(Caption) & " символов"
End Sub
 
Private Sub UserForm_Initialize()
TextBox1 = "Задана строка. Написать программу, которая находит количество символов, встречающихся более одного раза - VB"
End Sub

Private Sub CommandButton1_Click()
Dim s As String, c As String, n As Long
Caption = ""
s = TextBox1
For n = 1 To Len(s) - 1
  c = Mid$(s, n, 1)
  If InStr(1, s, c) = n Then If InStr(n + 1, s, c) Then Caption = Caption & c
Next
Caption = Caption & ": " & Len(Caption) & " символов"
End Sub
 
Private Sub UserForm_Initialize()
TextBox1 = "Задана строка. Написать программу, которая находит количество символов, встречающихся более одного раза - VB"
End Sub

Function multSym(S As String) As String
         If Len(S) <= 1 Then
            multSym = ""
         Else
            c$ = Left$(S, 1)
            If InStr(Mid$(S, 2), c$) <> 0 Then
               multSym = c$ + multSym(Replace$(S, c$, ""))
            Else
                  multSym = multSym(Replace$(S, c$, ""))
            End If
         End If
End Function
 
Sub test()
 
    Debug.Print multSym("abrakadabra")  ':: Вывод - abr
 
End Sub