Imports System.Console
 
Module abc
 
    Enum Wochentag As Byte
        Mo = 1
        Di = 2
        Mi = 3
        Don = 4
        Fr = 5
        Sa = 6
        So = 7
    End Enum
    Sub Main()
        Dim wt As Wochentag
        wt = Wochentag.Mi
        If wt = Wochentag.Mi Then
            WriteLine("Gewählter Tag: Mittwoch")
        End If
        ReadLine()
    End Sub
 
End Module