Private Python2VBText As New TextBox

' 
' String Substitution for a Mad Lib
' Adapted from code by Kirby Urner
'
                                                     
Public Sub tellStory():                                    

        Dim story As String
    story = "Once upon a time, deep in an ancient jungle," + vbNewLine + 
"there lived a  Mod (animal)s.  This %(animal)s" + vbNewLine + 
"liked to eat %(food)s, but the jungle had" + vbNewLine + 
"very little %(food)s to offer.  One day, an" + vbNewLine + 
"explorer found the %(animal)s and discovered" + vbNewLine + 
"it liked %(food)s.  The explorer took the" + vbNewLine + 
"%(animal)s back to %(city)s, where it could" + vbNewLine + 
"eat as much %(food)s as it wanted.  However," + vbNewLine + 
"the %(animal)s became homesick, so the" + vbNewLine + 
"explorer brought it back to the jungle," + vbNewLine + 
"leaving a large supply of %(food)s." + vbNewLine + 
"" + vbNewLine + 
"The End" + vbNewLine + 
""
    Dim cues As Object
    cues = {"animal", "food", "city"}            
    Dim userPicks As New Dictionary(Of Object, Object)

                                                    
    Dim prompt As String
    for cue= 0 To cues.Length - 1

        prompt = "Enter a specific example for " + (cues(cue)).toString + ": "
    userPicks(cues(cue)) = InputBox(prompt)
                                                    
    Next
    Python2VBText.Text = Python2VBText.Text +story % userPicks.ToString + vbNewLine
                                                    
End Sub
Public Sub Routine2
    tellStory()                                         
    InputBox("Press Enter to end2 the program.")
End Sub