TextBox

Имам един TextBox ми се ще да приема само цифри и никакви други символи.

Закачаш се на KeyPress евента и там получаваш параметър KeyAscii. За него трябва да имаш някакъв подобен код:

If (KeyAscii <> "1") And (KeyAscii <> "2") ... Then
KeyAscii = 0
End If

По този начин просто игнорираш другите символи. Ако искаш, може и бибитка да сложиш вътре в ифа.

Оправих се по друг начин малко хакерско за vb се получи ама стана

Dim s$
s$ = Val(Text1.Text) 'Val izvlicha chislova stoinost ot string