[alex]

Καλησπέρα Νίκο!!!
Καταρχήν ευχαριστώ που ασχολήθηκες με το θέμα μου.
Με το τρόπο που αναφέρεσαι γίνεται αντικατάσταση προσθήκη της κάθετου (/) με (/#) και όχι προσθήκη της δίεσης μπροστά από τον αριθμό.Αν το δοκιμάσεις στη φόρμα θα δείς ότι το πρώτο νούμερο το (12) μένει ορφανό πχ μορφή ημερομηνίας 12/12/1821 θα μας δώσει 12/#12/#1821.
Φαντάσου ότι δεν έχουμε ημερομηνία και έχουμε 5 αριθμούς τριψήφιους ,πενταψήφιους κλπ στην μετατροπή θα έπρεπε μπροστά από κάθε νούμερο να εμφανίζει τον αριθμοδείκτη # οπότε πιστεύω ότι με κώδικα στο module πρέπει να γίνει.
Ισως με τον παρακάτω κώδικα θέλει λίγο διαμόρφωση

Public Function Convert(strChars As String) As String 
Dim strChars As Integer, strTemp As String, lngLen As Long, x As Integer
    Dim i As Long
    lngLen = Len(strChars)For i = 1 To Len(txtBox1)

            Str = Mid(txtBox1, i, 1)

            If Asc(Str) >= 48 And Asc(Str) <= 57 Then
                Select Case strChar
                    Case 48 To 57
                        If i = lngLen Then
                            strTemp = strTemp & "#"
                            strTemp = strTemp & N_0
                            i = i + 1
                        Else
                            Select Case AscW(Mid(strChars, i + 1, 1))
                                Case 49, 50, 51, 52, 53, 54, 55, 56, 57
                                    strTemp = strTemp & "#"
                            End Select
                            If x = 0 Then strTemp = strTemp
                        End If