Endnu et noob spm

hvad er der galt med den her kode? jeg har fået koden i en bog, og jeg ikke få den til at virke :$


Option Strict On
Imports System, System.Console

Public Class Demo

  Public Shared Sub main()
    WriteLine("Dage til juleaften: {0}", AntalDageTilJuleAften(DateTime.Today))
  End Sub

  Public Shared Function AntalDageTilJuleAften(ByVal Dato As DateTime) As Int32

 
    Dim Juleaften As New DateTime(Dato.Year, 12, 24)
 
    If Juleaften <= Dato Then Juleaften = Juleaften.AddYears(1)

    Return CInt(Juleaften.Subtract(Dato).TotalDays)

  End Function

End Class