Considere o seguinte trecho de programa Visual Basic:

Sub Teste2()

Dim W As Long

Dim X As Variant

Dim Y1 As Date

Dim Y2 As Date

Dim Z As Long

Y2 = "01/01/2008"

Y1 = "01/01/2007"

Z = 10

X = Y2 + Z

W = CLng(X - Y1)

MsgBox W

End Sub

O valor de W mostrado ao final da execução do procedimento Teste2 é: