Dim x as integer
Function count()
        Dim result As Double
        Do While result = NumericUpDown1.Value = False
            For x = 0 To 1000
                result = New DataTable().Compute(TextBox1.Text + x, Nothing)
            Next
        Loop
        Return x
    End Function