Верно ли, что в числе нет заданной цифры - Visual Basic .NET

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim k As Integer = 0
        If TextBox1.TextLength > 0 And IsNumeric(TextBox1.Text) Then
            Dim s As String = TextBox1.Text
 
            For i = 0 To s.Length - 1
                If Val(s(i)) = NumericUpDown1.Value Then
                    k = k + 1
                End If
            Next
 
            If k > 0 Then
                MsgBox("Есть совпадение, количество совпадений = " & k)
            Else
                MsgBox("Нет совпадений")
            End If
 
        End If
    End Sub