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

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