تايپ نمودن عدد در تكست باكس بهينه نمودن كد من

[sh2007]

دوستان سلام
من بوسيله اين كدهاي زير توي رويداد كي پرس تكست باكس تايپ كردن رشته رو غير فعال مي كنم و كاربر مي تونه فقط عدد رو وارد كنه اما دوستان موندم چوطر مميز رو استثنا قرار بدم يعني كاربر بتونه مميز رو تايپ كانه در صورتي كه با اين كدها فقط اعداد صفر تا نه رو مي تونه بنويسه لطفا كمك كنيد

If Not IsNumeric(e.KeyChar) Then e.Handled = True
If e.KeyChar = vbBack Then e.Handled = False

[Mani_rf]

If Not IsNumeric(e.KeyChar) and e.KeyChar<> "." Then e.Handled = True

[teymoorei]

دوست عزیز شما می تونید از MaskedTextBox استفاده کنید و هر طور کا دوست داشتید بهش قالب بدید .

[sh2007]

If Not IsNumeric(e.KeyChar) and e.KeyChar<> "." Then e.Handled = True

راستي دوستان اگه اگه كاربر دوبار مميز رو بزنه چيكار كنم چطور جلوي تايپ مميز اضافي رو بگيرم
ممنون

[Mani_rf]

با IndexOf متن درون تکس باکس را چک کن که اگه ممیز زده شده بود بره بیرون.

If TxtTest.Text.IndexOf(".") > 0 Then