dele ved mellemrum

Denne funktion bruger jeg til at finde et søgeord i en tekststreng og vise ordet i dets sammenhæng. I dette tilfælde ved at vise 50 karakterer før og efter søgeordet.
Men hvordan tilretter jeg funktionen, så den KUN deler ved mellemrum?
Det kan altså godt være, at de 50 karakterer stopper midt i et ord, men funktionen skal tage hele ordet med (eller stoppe før ordet).
Forklarer jeg mig ordentligt?

Function Highlight(TextString, SearchWord)

            startIndex = instr(1, TextString, SearchWord,1) '1-tallet betyder at case er underordnet
            antalTegnFE = 50 'Antal tegn før og efter søgeord
           
            if startIndex > 0 then
              cutFra = 1
                  if startIndex > antalTegnFE then
                    cutFra = startIndex - antalTegnFE
                end if
               
              cutTil = len(TextString)
             
                  if len(TextString) > (startIndex + len(SearchWord) + antalTegnFE) then
                    cutTil = startIndex + len(SearchWord) + antalTegnFE
                end if
               
              if cutFra > 1 then
                  Highlight = Highlight & "..."
              end if

              Highlight = Highlight & ""& Mid(TextString, cutFra, cutTil-cutFra) &""
             
              if cutTil < len(TextString) then
                  Highlight = Highlight & "..."
              end if
             
            end if
           
End Function