Private Sub cmdOK_Click()
  Dim bRichtig As Boolean
 
  bRichtig = False
  Select Case LCase$(txtAntwort.Text)
    Case "anfang", "beginn", "start"
      bRichtig = True
  End Select
 
  cmdRichtig.Visible = bRichtig
  cmdFalsch.Visible = Not bRichtig
End Sub