[asto]

ممكن بشرط تتم كتابة اربع خانات للايام و الاشهر يعني مثلا : الشهر 3 مثلا يكون 03 و اليوم 3 يكون 03

كود :

t = Left(Text1.Text, 2)
a = Left(Text1.Text, 4)
tt = Right(a, 2)
x = Len(Text1.Text)
xx = x - 4
Text2.Text = t & "\" & tt & "\" & Right(Text1.Text, xx)