Regulær ekspression I VBA

Du kan aflæse ascii koderne med
kommandoen asc(bogstavet), du skal så udklippe 1 bogstav ad gangen.

Se efterfølgende eksempel. Den tillader kun  A B C D, du kan selv indsætte
de andre kode  A-Z  er koderne 65 - 90


dim x, emne, tkode, fejlmedd
fejlmedd = ""
emne = inputbox("Indtast ord")
for x = 1 to len(emne)
  tkode = asc(mid(emne,x))
  select case tkode
      case 65,66,67,68
      case else
        fejlmedd = "Du har indtast andet tegn end A, B, C, D"
        exit for
next

if fejlmedd <> "" then msgbox(fejlmedd)

Tak det prøver jeg