Задан одномерный массив и некоторое число. Найдите на каком месте стоит число в массиве.

Private Sub Place_Number()
Dim nPlace As Integer, nNumber As Integer, nDimensionality As Integer ' Если все числа целого типа
 
  nDimensionality = 10 ' Размерность массива
  nNumber = InputBox("Введите искомое число: ")
  For nPlace = 1 To nDimensionality
      If Cells(1, nPlace) = nNumber Then
         MsgBox ("Искомое число находится на " & nPlace & " позиции")
      End If
  Next
  
End Sub

Private Sub Equal_Summ()
Dim nPlace As Integer, nNumber As Integer, nDimensionality As Integer ' Если все числа целого типа
Dim nRightSumm As Integer, nLeftSumm As Integer
Dim sFullString As String, sRightSubString As String, sLeftSubString As String
    
  nDimensionality = 10 ' Размерность массива
' Каждое число разбиваем на две подстроки, из каждой подстроки крайние символы складываем
' с преобразованием в число, после чего сравниваем суммы nRightSumm и nLeftSumm
  For nPlace = 1 To nDimensionality
      sRightSubString = Right(Cells(1, nPlace), Len(Cells(1, nPlace)) - 2)
      sLeftSubString = Left(Cells(1, nPlace), 2)
      nRightSumm = Val(Right(sRightSubString, 1)) + Val(Left(sRightSubString, 1))
      nLeftSumm = Val(Right(sLeftSubString, 1)) + Val(Left(sLeftSubString, 1))
      If nRightSumm = nLeftSumm Then
         nNumber = nNumber + 1
      End If
  Next
  MsgBox ("Количество искомых чисел: " & nNumber)
  
End Sub

Count = 0
For i = 1000 To 9999
  summ1 = i \ 1000 + Mid(i, 2, 1)
  summ2 = Val(Mid(i, 3, 1)) + Mid(i, 4, 1)
  If summ1 = summ2 Then
    Count = Count + 1
  End If
Next i
msbox Count

Chislo=5
Otvet=-1
For i=0 to Ubound(A)
  If Chislo = A(i) Then
    Otvet =i
    Exit for
  End if
Next i
If Otvet >=0 then
  msgbox otvet
else
  msgbox "не найдено"
end if