Si te refieres que permita el ingreso de sólo números de dos cifras puedes hacer así, también:
Establecer la Propiedad MaxLength del TextBox a 2 en tiempo de diseño o en tiempo de ejecución:
Private Sub Form_Load()
With Text1
.MaxLength = 2
End With
End Sub
Luego en el Evento KeyPress del TextBox
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 13
Case 8, 46, 48 To 57
Case Else
KeyAscii = 0
Beep
End Select
End Sub
8 = borrado atráz. indispensable
46 = para que acepte el punto (.) para números decimales. sino, lo quitas
48 to 57 = dígitos del 0 hasta el 9