Private Sub Text1_KeyDown(KeyCode As Integer, _
  Shift As Integer)
  If KeyCode >= vbKeyLeft And _
    KeyCode <= vbKeyDown Then sCheckWord = ""
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
  Dim mySpellscount As Long
  Dim wl As Long, tl As Long
 
  'wurde die Backspace-Taste oder Leertaste gedrückt?
  If mnuspell.Visible Then Exit Sub
  If Not mnuspellon.Checked Then Exit Sub
  bSpace = False
  Select Case KeyAscii
    Case vbKeyBack
      sCheckWord = ""
      Exit Sub
    Case vbKeySpace
      bSpace = True
    Case Else
      sCheckWord = sCheckWord + Chr(KeyAscii)
  End Select
  If bSpace Then
    If Not myWrd.CheckSpelling(sCheckWord) Then
      mySpellscount = 1
      ClearPopupMenu
      wl = Len(sCheckWord)
      'Das falschgeschriebene Wort vollständig markieren
      With Text1
        tl = .SelStart - wl
        If tl < 0 Then tl = 0
        .SelStart = tl
        .SelLength = wl
      End With
      'Rechtschreibvorschläge einholen:
 
      ' Das hier brauchst Du nicht
      Set mySpells = myWrd.GetSpellingSuggestions(Word:=sCheckWord, _
        SuggestionMode:=wdSpellword)
      mnuPop(0).Caption = "<" + sCheckWord + "> ersetzen durch:"
      Load mnuPop(1)
      mnuPop(1).Caption = "-"
      'Popup-Menü mit den gefundenen Vorschlägen laden:
      For Each mySpell In mySpells
        mySpellscount = mySpellscount + 1
        ''Menüpunkte zur Laufzeit laden:
        Load mnuPop(mySpellscount)
        mnuPop(mySpellscount).Caption = mySpell.Name
      Next
      'Popup-Menü anzeigen
      PopupMenu mnuspell
      ' bis hier kannst alles weglassen
 
      ' Hier eine SQL-Abfrage basteln und das Wort holen.
 
      Text1.SelStart = Len(Text1.Text) + 1
    End If
    sCheckWord = ""
  End If