per me sbagli la "mid"

prova così:

codice:
mm_ = Mid(data,3,2)