Dim MiaData as Date = CDate(mData)
Non funziona perché non accetta il formato data italiano

mData= mData.substring(7,4) & "-" & mData.substring(3,2) & "-" & mdata.substring(0,2)
Lo avevo già scritto nel primo post... chiedevo se ci fosse di meglio