[kapetang]

Καλημέρα

Την ιδέα, για τη χρήση της Split(), την πήρα από το Γιάννη.

Η συνημμένη ΒΔ είναι μια προσομοίωση του ζητούμενου:

1) Δημιούργησα την παρακάτω συνάρτηση:

Public Function sxolio(str As String) As Variant
    Dim x As Variant
    
    x = Split(str, vbLf)
    sxolio = Replace(x(7), "Σχόλιο: ", "")
    
End Function

2) Το ερώτημα qrySxolio δείχνει πως χρησιμοποιείται