Credo tu commetta questo errore.
Prova a modificare nel modulo 1 inserendo il nome esatto del campo dal quale vuoi estrarre 4 parole
Public Function fT4P(Soggetto) As String
strTL = Soggetto
Public Function fT4P(Soggetto) As String
Dim strRidotto As String, strTL As String
Dim bySpazio As Byte, K As Byte
strTL = Soggetto
For K = 1 To 4
bySpazio = InStr(strTL, " ")
If bySpazio > 0 Then
strRidotto = strRidotto & " " & Left(strTL, bySpazio - 1)
strTL = Replace(strTL, Left(strTL, bySpazio), "")
Else
strRidotto = strRidotto & " " & strTL
GoTo Fine
End If
Next K
Fine:
fT4P = strRidotto
End Function
… funziona