DTPicker select date to display in Text box

Hi,

On my Userform i want the date selected to be displayed in TextBox1 & TextBox2.
First time DTPicker selected the date to be display in TextBox1
and second time when the DTPicker selected date in TextBox2
when Done selected date is forwarded to Mymacro script.

If TextBox1 = "" Or TextBox2 = "" Then Exit Sub
Mymacro.TextBox6 = Me.TextBox1
Mymacro.TextBox7 = Me.TextBox2

Any Helps.

Hi Danny!
No tested.

Code:

---

Private Sub DTPicker1_CloseUp()
    Dim b&
    b = (TextBox1 = "") + (TextBox2 = "") + 3
    If b > 2 Then Exit Sub
    Me("TextBox" & b) = DTPicker1
End Sub

---