Visual Basic - Dias Transcurridos

Tengo un problema con un programa, el cual necesito que me diga los dias transcurridos apartir de la fecha dada, logre hacer esto sumando meses y restando. Pero el problema es que cada ves va fallando por mas de 16 dias a lo cual tengo que sumarle lo que le falta, pero cada ves lo inicio falla por mas dias. ¿Alguien me puede decir como lo consigo? la funcion es la siguiente :

DiasTotales.Text = (Fecha - Date) + 21 & " dias"

La otra es esta:

Public Function DayofYear(ByVal vDate A0s Variant) As Variant
End Function
DayofYear(#1/01/2000#)=31

Pero tengo el mismo problema.

¡¡¡¡¡¡De antemano GRACIAS!!!!!!

Utiliza Datediff asi:

Dim dias As Long

dias = DateDiff("d", CDate(Text1), CDate(Text2))
MsgBox "Han pasado.." & dias

Saludos desde Lima

Creo que lo tienes bien planteado Fecha-Date, pero debes tener en cuenta que si Fecha no varia sin intervención humana, el Date si, ya que es la fecha del dia, y si la pila del ordenador está cada dia que trascurre aumenta uno