Function GetFirstLetters(rng As Range) As String
    Dim cellValue As String
    Dim delimiters As String
    Dim letter As String
    Dim i As Long
    Dim insideWord As Boolean

    delimiters = " -“”(),.':"
    cellValue = rng.Value
    GetFirstLetters = ""
    insideWord = False

    For i = 1 To Len(cellValue)
        letter = Mid(cellValue, i, 1)
        If InStr(delimiters, letter) = 0 Then
            If Not insideWord Then
                GetFirstLetters = GetFirstLetters & letter
                insideWord = True
            End If
        Else
            insideWord = False
        End If
    Next i
End Function

' In questa versione del codice, impostiamo una variabile booleana insideWord per tener traccia se siamo all'interno di una parola.
' La funzione quindi esaminerà ogni carattere nella cella di input e se il carattere non è un delimitatore e non siamo già all'interno di una parola, verrà aggiunto alla stringa di output.
' Quando un delimitatore viene trovato, la variabile insideWord viene reimpostata su False per iniziare una nuova parola.
' Ciò dovrebbe restituire solo la prima lettera di ogni parola, ignorando i caratteri non delimitatori tra di esse.