Text1.Text = Format(Left(Text1.Text,2) & "/" & Mid(Text1.Text,3,2) & "/" & Right(Text1.Text,2),"dd/mm/yyyy")