Программа определяющая сколько раз встречается заданное число

Private Sub Form_Load()
Dim Num As Long
Num = InputBox("Ваше число", "Введите любое число")
If Num < 10 Or Num > 352 Then
MsgBox "Число " & Num & " не встретилось"
Else
MsgBox "Число " & Num & " встретилось 1 раз"
End If
 
End Sub

Function counter(A() as integer, n as integer) As integer
   m%=Ubound(A,1)
   for i%=1 to m%
       if A(i%)=n then counter=counter+1
   next i%
End Function

Dim x As String, S As Integer
Private Sub Command1_Click_Click()
x = Text1.Text
k = Len(x)
Select Case k
Case 1
S = 0
For i = 10 To 352
n = Len(i)
For j = 1 To n
For y = 1 To k
If Mid(x, y, 1) = Mid(i, j, k) Then S = s1
Next y
Next j
Next i
Case 2
S = 0
For i = 10 To 352
For j = 1 To k
If x = Mid(i, j, 2) Then S = s1
Next j
Next i
Case 3
S = 0
For i = 10 To 352
For j = 1 To k
If x = Mid(i, j, 3) Then S = s1
Next j
Next i
End Select
Text2.Text = S
End Sub

Option Explicit
Dim x As String, S As Integer, k As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer, y As Integer
x = Text1.Text
k = Len(x)
Select Case k
    Case 1
        S = 0
        For i = 10 To 352
            n = Len(i)
            For j = 1 To n
                For y = 1 To k
                    If Mid(x, y, 1) = Mid(i, j, k) Then S = S + 1
                Next y
            Next j
        Next i
    Case 2
        S = 0
        For i = 10 To 352
            For j = 1 To k
                If x = Mid(i, j, 2) Then S = S + 1
            Next j
        Next i
    Case 3
        S = 0
        For i = 10 To 352
            For j = 1 To k
                If x = Mid(i, j, 3) Then S = S + 1
            Next j
        Next i
End Select
Text2.Text = S
End Sub