Movies as code

Sub New
Dim oMovie as New Movie
   For each S as Scene in MovieScriptBuilder(IMDB.Movies.Genres.Horror)
      For each _Quote as IMDB.Movies.Scenes.Transcript.Quotes in S
           _Quote = Inputbox("Please slightly change quote to make funny and fit new story line", Q.ToString)
      Next
   Next

oMovie.Build
End Sub

Function MovieScriptBuilder(_Genre as IMDB.Movies.Genres) as Movie
   Dim oMovie as New Movie 'Output Movie

   For each M as Movie in IMDB.FindMovie(_Genre)
        For each S as Scene in M
             If S.RecognitionRating > 7
                  oMovie.Scenes.Add(S)
             End If
        Next
   Next

   Return oMovie
End Function