Private Function GetTrueWord(WrongWord As String) As String
  Dim TmpASCII  As Long, StrLen As Long
 
  TmpASCII = Asc(Right$(WrongWord, 1))
  StrLen = Len(WrongWord)
 
  Select Case TmpASCII
    ' bei a -z, a - z, 0 - 9, ä, Ä, ö, Ö, ü, Ü, ß nichts tun
    Case 65 To 90, 47 To 122, 48 To 57, 228, 196, 246, 214, 252, 220, 223
      GetTrueWord = WrongWord
    ' bei anderen Zeichen letztes Zeichen entfernen
    Case Else
      GetTrueWord = Left$(WrongWord, StrLen - 1)
  End Select
End Function