Найти номера первых двух рядом стоящих равных чисел - VB

Формулировка задачи:

День добрый, помогите пожалуйста по информатике. Задание: Дан массив целых чисел-А={ai}, где i={1,2.....n} Найти номера первых двух рядом стоящих равных чисел или напечатать Равных чисел нет! Так если А={2,6,4,4,2,5,5,4} результат:3 и 4(равные значения 4 и 4)

Решение задачи: «Найти номера первых двух рядом стоящих равных чисел»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim Mass As String
Dim Y() As String
Dim n, j, i As String
Private Sub Form_Activate()
Print " Дан массив целых чисел-А={ai}, где i={1,2...n}"
Print " Найти номера первых двух рядом стоящих равных  "
Print " чисел или напечатать Равных чисел нет!"
End Sub
Private Sub Command1_Click()
    n = InputBox("Колличество элементов в массиве?")
        ReDim Mass(n) As String
        For i = 1 To n
    If Mass(n)=
    
 
 
End Sub
                        