можно повесить обработчик на событие КейПресс для ТекстовогоПоля, который будет например блокировать определённые символы, что-то типа:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim My_Template As String 'это типа маска ввода
My_Template = "!@#$%^&*()_+=abcdefgh"
If InStr(1, My_Template, Chr(KeyAscii)) > 0 Then KeyAscii = 0
...
'и по аналогии с вышенаписанной строчкой можно проверить символы, начиная с другой позиции в строке, например (т.е. если формат даты типа dd/mm/yyyy) на правильность ввода символов или сравнить с какой-нибудь датой, посчитать разницу между датами, например, в днях (по-моему функция DateDiff...)
End Sub