String kürzen nach 40 Zeichen

[TestUser1]

Hallo zusammen,
ich würde gerne in meiner Abfrage das Feld "Anmerkung" mit folgendem Inhalt "Ich Brauche Hilfe in einer Access Abfrage" kürzen. Sobald der Feldinhalt >40 Zeichen ist soll nach dem ersten Leerzeichen vor dem 40. Zeichen gesucht werden und der String links davon ausgeben werden.
Der oben genannte Inhalt würde dann wie folgt aussehen: "Ich Brauche Hilfe in einer Access"

LG TestUser1

[Beaker s.a.]

Code [Auswählen] Erweitern

LEFT() sollte dein Freund sein.

[Beaker s.a.]

soll nach dem ersten Leerzeichen vor dem 40. Zeichen

Hatte ich überlesen. Dann reicht Left alleine nicht

Code [Auswählen] Erweitern

Public Function FirstForty(ByVal sText As String) As String

    Dim sResult As String
   
    sResult = Left(sText, 40)
   
    sResult = Left(sResult, InStrRev(sResult, " "))
   
    FirstForty = sResult
   
End Function