[kapetang]

Καλησπέρα

Αλέξανδρε θα πρότεινα τα εξής:

1) Αντίγραψε τον παρακάτω κώδικα σε μία λειτουργική μονάδα (Module)

Public Function Replace3Blanks(s As String) As String
    Dim sumS As String, j As Long, i As Long, k As Long
    
    s = Trim(s)
    k = Len(s)
    If k > 4 Then
    j = 1
    Do While j <= k - 4
        sumS = sumS & Mid(s, j, 1)
        If Mid(s, j, 1) <> " " Then
            If Mid(s, j + 1, 3) = "   " And Mid(s, j + 4, 1) <> " " Then
                sumS = sumS & " - ": j = j + 3
            End If
        End If
        j = j + 1
    Loop
       Replace3Blanks = sumS & Right(s, k - Len(sumS))

    Else
       Replace3Blanks = s

    End If
End Function

2) Θέσε στον προηγούμενο κώδικα: Me.TextBox2 = Replace3Blanks(s)

Φιλικά/Γιώργος

ΥΓ. θα μπορούσε να χρησιμοποιηθούν για τη λύση κανονικές εκφράσεις (Regular Expressions), αλλά τις παράτησα εδώ και καιρό και με παράτησαν…