Visual Basic - utilizar Fechas

Necesito por favor el codigo donde pueda señalar una fecha en el DTpicker y me la muestre en una caja de Texto pero validando que la fecha no sea menor que la del dia Actual.
Muchas Gracias.

Prueba con esto, el formato del datepicker que se maneja es "dd/mm/yyyy".
Private Sub DTPicker1_CloseUp()
If CDate(DTPicker1.Value) < CDate(Format(Now, "dd/mm/yyyy")) Then
MsgBox "La Fecha seleccionada no puede ser menor a la de hoy", vbInformation
DTPicker1 = Format(Now, "dd/mm/yyyy")
Else
Me.Text1 = Me.DTPicker1.Value
End If
End Sub