Определить, есть ли в данном слове повторяющиеся буквы - VB

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub Command1_Click()
TestWordDic (Text1.Text)
End Sub
 
Sub TestWordDic(wd As String)
Dim x
With CreateObject("scripting.dictionary")
    .CompareMode = 1    'Г*ГҐ Г°Г*çëè÷Г*ГІГј ðåãèñòð ГЎГіГЄГў. 0 èëè îïóùåГ*Г® - Г°Г*çëè÷Г*ГІГј
    For x = 1 To Len(wd)
        .Item(Mid(wd, x, 1)) = .Item(Mid(wd, x, 1)) + 1
    Next
    If .Count < Len(wd) Then
         Print "Ïîâòîðÿþòñÿ ГЎГіГЄГўГ»:"
         For Each x In .keys
            If .Item(x) > 1 Then
                Print x; " "; .Item(x); " Г°Г*Г§(Г*)"
                Sleep 500
            End If
         Next
    Else
        Print "ГЌГҐГІ ïîâòîðÿþùèõñÿ ГЎГіГЄГў!"
    End If
End With
End Sub