[elmobde3]

طريقه اخرى

كود :

Dim S As String = TextBox1.Text
        If IsNumeric(S) And S < 100 Then
            TextBox1.Text = "100"
        End If

ومن الافضل ان تضعها فى الحدث lost focus بحيث عند الانتقال الى اى اداه اخرى غير التيكست بوكس يتم بحث القيمه بداخلها فلو كانت اقل من 100 يعيدها ال 100 وان كانت اكبر سيتركها كما هى .. بالتوفيق