I Got it, Little digging and came up with this and it works perfect..
Label1 is just for a test to see the change..
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Label1.Text = DateTimePicker1.Value.ToShortDateString()
EthernetIPforCLXCom1.Write("DateStringHMI", DateTimePicker1.Value.Date)
End Sub
Thanks