[Tasos]

Καλησπέρα σε όλους!

Για την αφαίρεση του τελικού Σίγμα, σε κάθε περίπτωση θα δουλέψει ο παρακάτω κώδικας:

Private Sub Text1_AfterUpdate()
Dim txt$
    If Len(Nz(Me.Text1, vbNullString)) Then
        txt = Me.Text1
        If AscW(Right$(txt, 1)) = 962 Then Me.Text1 = Left$(txt, Len(txt) - 1)
    End If
End Sub

Φιλικά

Τάσος