Ciao,
prova con una delle due soluzioni...ho ipotizzato un controllo in una maschera...
Dim i As Integer
Dim strString As String
For i = 1 To 4 Step 2
strString = strString & Mid(Me.tuoControllo, i, 2) & " "
Next
strString = strString & Mid(Me.tuoControllo, i, 1) & " " & Mid(Me.tuoControllo, Len(Me.tuoControllo), 1)
Dim strString As String
strString = Left(Me.tuoControllo, 2) & " " & Mid(Me.tuoControllo, 3, 2) & " " & Mid(Me.tuoControllo, 5, 1) & " " & Mid(Me.tuoControllo, 6, 1)
un saluto.