استدعاء التاريخ الى الفورم وترحيله بأكثر من طريقة

السلام عليكم

لمن يعاني من عكس التواريخ عند الترحيل او الاستدعاء من والى الفورم
اليكم بعض طرق الترحيل والاستدعاء البسيطة التى قد تصلح لمثل هذه المشاكل
الكود المستخدم

'========استدعاء
Private Sub CommandButton1_Click()
TextBox1.Text = Range("A1").Text
End Sub
Private Sub CommandButton2_Click()
TextBox1.Text = Range("A1").Value
End Sub
Private Sub CommandButton3_Click()
TextBox1.Text = Format(Range("A1").Value, "dd/mm/yyyy")
End Sub
Private Sub CommandButton4_Click()
TextBox1.Text = CDate(Range("A1").Value)
End Sub
'========ترحيل
Private Sub CommandButton5_Click()
Range("A1").Value = TextBox1.Text 'هنا بالطريقة العادية يتم الترحيل مع عكس الشهر مع  اليوم
End Sub
Private Sub CommandButton6_Click()
Range("A1").Value = Format(TextBox1.Text, "mm/dd/yyyy") 'اذا نعكس احنا الفورمات عشان تروح مظبوطة
End Sub
Private Sub CommandButton7_Click()
Range("A1").Value = CDate(TextBox1.Text) 'او نستخدم الدالة CDate

End Sub