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