VBA kode til datavalidering.

Jeg har et lille stykke kode som jeg gerne vil ændre:

Private Sub TextBox1_Exit _
  (ByVal Cancel As MSForms.ReturnBoolean)
 
  If TextBox1.Value <> 100 Then
      MsgBox "Geben Sie die Zahl 100 ein."
      TextBox1.SetFocus
      Cancel = True
  End If
End Sub

Jeg vil ikke validere på tallet 100, men snarere tjekke om det indtastede er "et af tallene i kolonne A".

Tallene i min kolonne A er mellem 5000 og 9999, men der er huller ind imellem dem. Således skal tallet 5009 accepteres, mens 5008 ikke skal accepteres.

Hvordan laver jeg min kode om ?