muốn nhập là 30/5/2017 thì khi ghi vào excel sẽ là ngày 30 tháng 5. Tham khảo đoạn code sau:
Private Sub TextBox1_Change()
Dim s As String
Dim ngay As Date
Dim a
On Error Resume Next
s = TextBox1.Value
a = Split(s, "/")
ngay = DateSerial(a(2), a(1), a(0))
Me.Caption = ngay
End Sub