'Textbox nesnesine sadece rakam girmek icin;
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim karakter$
karakter = "0123456789"
If KeyAscii 8 Then
If InStr(karakter, Chr(KeyAscii)) = 0 Then
Beep
KeyAscii = 0
Exit Sub
End If
End If
End Sub
'Burada karakter değişkenine hangi değerler atanırsa text kutusunu o değerler girilebilir.'Orneğin karakter="abc" yazılırsa text kutusuna sadece a,b ve c harfleri girilebilir.

Kaynak site: vbprogramlama.tr.cx
__________________