Pregunta para Luis

Que tal Luis mira tengo datos de personal en hoja1 (empleados) y uno de esos datos es la fecha de ingreso, en un userform elabore una pequeña consulta con un listbox y al seleccionar un trabajador me traiga los datos a los texbox designados para cada información

pero en uno es la fecha de ingreso al momento de llamarlo para el texbox me mando no la fecha un valor numérico utilice esta instrucción y no me funciono que error tengo Luis

'TextBox3 = Format(ListBox1.Value, "dd/mm/yyyy")
TextBox3.Value = Application.VLookup(Val(ListBox1.Value), Range("a:p"), 7, False)

el formato lo quise poner intermedio de la instrucción anterior pero me manda el formato de fecha pero nada que ver con la que tengo almacenada ayuda.