ช่วยดูโค๊ด VB.NET ให้หน่อยคับ ไม่ทราบว่าต้องทำยังไงให้วันที่โชว์ตรง textbox

Public Class Form1

    Private Sub btnShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShow.Click
        Dim currDate As Date
        Dim ADate As String
        currDate = FormatDateTime(dtDateA.Text, DateFormat.ShortDate)
        ADate = currDate.Year & "-" & currDate.Month & "-" & currDate.Day
        txtadd.Text = ADate

        MessageBox.Show(txtadd.Text)
    End Sub
End Class