Dar formato de fecha a una celda

Tengo un pequeño gran problema

Tengo una macro funciona perfecto pero al momento de ingresar ciertos datos

Que son fecha me los arroja como texto y la fórmula que debe analizar estos datos no funciona

Private Sub txtvenc1_change()
Dim txtvenc2 As Integer
Application.ScreenUpdating = False
Range("bf6").Select
ActiveCell.Value = txtvenc1
Selection.NumberFormat = "m/d/yyyy"
End Sub

Esta es mi código

Me ayudan