credo che provenda da questa parte qui

'le date devono venire dal database!!!
Function ParteData(sTesto, sParte)
If Len(sTesto) = 9 then s = 0 else s = 1
Select Case UCase(sParte)
Case "G": ParteData = (Mid(sTesto, 4+s, 2))
Case "M": ParteData = (Mid(sTesto, 2+s, 2))
Case "C": ParteData = (Mid(sTesto, 1+s, 1+s))
If Len(ParteData) = 1 Then ParteData = "0" & ParteData
Case "A": ParteData = (Mid(sTesto, 1+s, 1+s))
If Len(ParteData) = 1 Then ParteData = "200" & ParteData else ParteData = "20" & ParteData
Case "H": ParteData = CInt(Mid(sTesto, 6+s, 2))
Case "N": ParteData = (Mid(sTesto, 8+s, 2))
End Select
End Function