Tengo dudas sobre como calculo entre fechas

Estoy realizando un gestor para llevar vacaciones de empleados, he avanzado algo pero no se como calcular días de vacaciones. Ejemplo

Fecha de ingreso: 25/01/2009 (txt_ingresa.txt)

Fecha inicio vacaciones:  25/02/2010 .

He visto algunas respuestas pero como soy muy novata en esto se me hace complicado llevarlo a mi gestor. Lleve esta pero al hacer correr el programa me dice que se esperaba fin de la instrucción.

Dim a As Double

Dim fechaInicial As Date = CType(Txt_Ingresa.Txt, Date)
Dim fechaFinal As Date = CType(DateTimePicker3.Txt, Date)

Dim Tiempo As TimeSpan
Tiempo = fechaFinal.Subtract(fechaInicial)

a = (Tiempo.TotalDays) / 365
txt_Pend.txt = a.ToString("##0.0")

Ojala me pueda ayudar.