Movies as code

   Public Sub StarTrekMovies()

        Dim intStarTrekMovie As Integer

        For intStarTrekMovie = 1 To 6
            If intStarTrekMovie Mod 2 = 0 Then
                MsgBox("Star Trek Movie #" & intStarTrekMovie & " was great!", , "Star Trek Movies")
            Else
                MsgBox("Star Trek Movie #" & intStarTrekMovie & " stunk!")
            End If

        Next

    End Sub