Try this:

Code:
Public Function Todo()
        System.Console.WriteLine(">--------------------------------------------<")
        System.Console.Write("What do you think we should do?")
        sInput = System.Console.ReadLine()

        Select sInput
              Case "look", "orders please"
                     Call Locations()
              Case "Drop Badge"
                      Badge = False
                      Console.WriteLine("OK, I droped the badge!") 
                      Call Start()
               Case else
                       Console.WriteLine("Invalid data entered"
        End Select
End Function