rajoitus?

Tässä yksi tapa, joka salliin 1 pilkun ja luvut 0-9
Ei ollut nyt VB:tä tällä koneelle ,allaoleva toimii ainakin VBA:ssa,mutta räätälöimällä sen saa toimimaan Vb:ssä(jos edes tarvitsee muuttaa)

Private Sub TxtLeveys_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr(1, TxtLeveys.Text, ",") > 0 And KeyAscii = Asc(",") Then ' tarkistetaan ettei kirjoiteta 2 pilkkua
' muuta pilkku pisteeksi jos käytät desimaalierottimena pistettä
KeyAscii = 0
Exit Sub
End If
Select Case KeyAscii
Case Asc("0") To Asc("9"), Asc(",") ' tässä voit valita mitä merkkejä voidaan syöttää
Case Else
KeyAscii = 0
End Select
End Sub

mentalis.orgista:

'This project needs a TextBox
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_STYLE = (-16)
Const ES_NUMBER = &H2000&
Public Sub SetNumber(NumberText As TextBox, Flag As Boolean)
Dim curstyle As Long, newstyle As Long

'retrieve the window style
curstyle = GetWindowLong(NumberText.hwnd, GWL_STYLE)

If Flag Then
curstyle = curstyle Or ES_NUMBER
Else
curstyle = curstyle And (Not ES_NUMBER)
End If

'Set the new style
newstyle = SetWindowLong(NumberText.hwnd, GWL_STYLE, curstyle)
'refresh
NumberText.Refresh
End Sub
Private Sub Form_Load()
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: [email protected]

SetNumber Text1, True
Me.Caption = "Now, try typing some letters into the textbox"
End Sub