با تشکر از دوستان
تابع تبدیل شمسی به میلادی را به این صورت نوشتم (کدش رو گذاشتم که اگر دیگران خواستند استفاده کنند)
Dim prdate() AsString = Split("1385/9/29", "/")
Dim Mdate AsNew System.Globalization.PersianCalendar
Response.Write(Mdate.ToDateTime(Int(prdate(0)), Int(prdate(1)), Int(prdate(2)), 1, 1, 1, 1, System.Globalization.GregorianCalendar.ADEra))