нужно создать пользовательскую функцию в VBA

[cicimora]

Определить, есть ли среди цифр заданного пятизначного числа одинаковые
нужно создать пользовательскую функцию в VBA

[gsg]

Sub func()

Dim a As Range
Dim i As Integer
Dim j As Integer

Set a = Cells(1, 1)

For i = 1 To Len(a) - 1
    For j = 1 To Len(a) - 1
        If Mid(a, i, 1) = Mid(a, i + j, 1) Then
            MsgBox ("есть одинаковые числа")
            Exit Sub
        End If
    Next j
Next i

End Sub