Посчитать количество одинаковых чисел в массиве - VB

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

Беда такая, не могу посчитать количество одинаковых элементов в массиве, всегда получается 0, код такой:

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Dim X(100) As Variant, i As Integer
Dim n As Variant, s As Variant, k As Variant
 
Private Sub Command1_Click()
Randomize
For i = 1 To 100
X(i) = Int(Rnd * 11) + 3
Picture1.Print X(i) & vbTab;
       If i Mod 10 = 0 Then Picture1.Print
Next
s = " " & Join(X, "  ") & " "
n = InputBox("Введите число от 3 до 13", "Ввод данных")
 
For i = 1 To 100
k = 0
If X(i) = n Then
k = k + 1
End If
Next
Picture2.Print "В массиве" & k & " чисел " & n;
End Sub

Знаю, что проблема в последнем цикле. Что не так? Подскажите, буду благодарен

Решение задачи: «Посчитать количество одинаковых чисел в массиве»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim X(100) As Variant, i As Integer
Dim n As Variant, k As Variant
Picture1.Cls
Picture2.Cls
Randomize
For i = 1 To 100
    X(i) = Int(Rnd * 11) + 3
    Picture1.Print X(i) & vbTab;
    If i Mod 10 = 0 Then Picture1.Print
Next
's = " " & Join(X, "  ") & " " - ЭТО ЗАЧЕМ?
n = InputBox("Введите число от 3 до 13", "Ввод данных")
 
For i = 1 To 100
'    k = 0 - И ЭТО ПОЧЕМУ?
    If X(i) = Val(n) Then
        k = k + 1
    End If
Next
Picture2.Print "В массиве " & k & " чисел " & n;
End Sub