select case arguments

I am trying to use a text string in a select case statement in VBA. To
wit:


Select Case test_string

        Case Is = "first header"
                statement 1

        Case Is = "second header"
                statement 2

        etc

    End Select

I've been trying (without luck) to get VBA to recognize the text
string.

Any suggestions?

Art