vergleich string

eine Frage:

habe ein Formular ertstellt und hier eine TextBox gesetzt. Wie kann ich dort eingegebene Texte vergleichen mit vorgegebenen...

bisher bin ich soweit komme dann aber immer auf fehler....

Private Sub Textvergleich_Change()
Dim Text As String
If Text <> "test1" Or "test2" Then
MsgBox "error"
End If
End Sub

Danke.

Peter