Module Module1

    Sub Main()
        Dim sec3question5Answer As answers

        'To test
        Select Case sec3question5Answer
            Case answers.d
                'shoWsec3question8 = true
            Case answers.b And answers.c And answers.d
                'shoWsec3question8 = true
            'Case etc etc
        End Select
    End Sub

    Public Enum answers
        a = 1
        b = 2
        c = 4
        d = 8
    End Enum

End Module