ارجو تحويل هذا الكود الصغير

الاخوه الاعزاء 

ارجو تحويل هذا الكود من 6  الى vb .net 

If Not IsNull(rs_getcode![date_c]) Then date_1 = rs_getcode![date_c]

 'ss = Format(txt_date1.Text - 25, "yyyy/mm/dd")

هذا الكود بفجوال 6 وهو   بعد احضار التاريج فى جمله الاستعلام اضعه فى متغير من نوع نصى  لكى اطرح منه 25   يوم وبعد طرحه يضعه فى المتغير لكى اتعامل معه بعد ذلك علما بان حقل التاريخ فى الداتا بيز date_c  نص وليس تاريخ 

ارجو منكم المساعده فى هذا الكود وشكرا