Hola, utiliza la función InStr en el evento KeyPress:
Código:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("/:*?""\<|>", Chr(KeyAscii)) > 0 Then
MsgBox "SI contiene algun caracter"
Else
MsgBox "NO contiene ningúno de los caracteres!"
End If
End Sub
