Imports System

Class Sample
  Shared Sub Main()
    ' 以下の2つはどちらも同じ動作・同じ結果となる

    ' Consoleクラスのメソッドを使って標準入力から読み込む
    Dim line1 As String = Console.ReadLine()
    If line1 = "25" Then
      Console.Write("Chistmas") 
    End If
    If line1 = "24" Then
      Console.Write("Chistmas Eve") 
    End If
    If line1 = "23" Then
      Console.Write("Chistmas Eve Eve") 
    End If
    If line1 = "22" Then
      Console.Write("Chistmas Eve Eve Eve") 
    End If
  End Sub
End Class