Private story As String
Private Python2VBText As New TextBox

' 
' String Substitution for a Mad Lib
' Adapted from code by Kirby Urner
'
                                                     
Public Sub Routine2

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 + 
""

End Sub
Public Sub tellStory():                                    
    Dim userPicks As New Dictionary(Of Object, Object)

    addPick("animal", userPicks)            
    addPick("food", userPicks)            
    addPick("city", userPicks)            
    Python2VBText.Text = Python2VBText.Text +story % userPicks.ToString + vbNewLine
                                                    
End Sub
Public Sub addPick(cue As String, dictionary As Object)
    Dim prompt As String
    prompt = "Enter a specific example for " + (cue).toString + ": "

    dictionary(cue) = InputBox(prompt)
End Sub
Public Sub Routine3
tellStory()                                         
    InputBox("Press Enter to end the program.")
End Sub