[Resolvido] Diferença entre seis datas

Pessoal,

Estou tentando fazer essa diferença entre seis datas digitadas pelo usuário nos campos text.

Veja o código que estou tentando, mas não está funcionando:

>
Private Sub final_2_LostFocus()

Dim d1, d2, d3, d4, d5, d6 As Single

d1 = CDate(final_0.Text)

d2 = CDate(inicio_0.Text)

d3 = CDate(final_1.Text)

d4 = CDate(inicio_1.Text)

d5 = CDate(final_2.Text)

d6 = CDate(inicio_2.Text)

result0 = DateDiff("d", d1, d2)

result1 = DateDiff("d", d3, d4)

result2 = DateDiff("d", d5, d6)

n_dias.Text = Format((result0) + (result1) + (result2), "d")

End Sub

Um abraço.

Alissong