Bloquear entrada de caracteres especiais/Validar data

Bloquear entrada de caracteres especiais (VB6)

No evento KeyPress do campo, insira as linhas que estão em cor verde.

Private Sub txtSerie_KeyPress(KeyAscii As Integer)

    If (KeyAscii >= 33 And KeyAscii <= 47) _

        Or (KeyAscii >= 58 And KeyAscii <= 64) _

            Or (KeyAscii >= 91 And KeyAscii <= 96) _

                Or (KeyAscii >= 123 And KeyAscii <= 126) _

                    Or (KeyAscii >= 128) Then KeyAscii = 0

End Sub

Validar Data

Dim DataDigitada As Date

    DataDigitada = txtData.Text

    If (DataDigitada > Date) Or (DataDigitada < (Date - 120)) Then

        MsgBox "Data inválida"

        txtData.SetFocus

        Exit Sub

    End If