---

Private Sub OptionButton1_Click()

    Dim x As Integer
    Dim i As Integer
    Dim k As Integer

    x = InputBox("Введите число")

    For i = 1 To 10
        If A(i) = x Then
            k = k + 1
        End If
    Next i

    Label3.Visible = True
    Label3.Caption = "Найдено: " & k

End Sub