declare and use a String variable like so:

vb Code:
  1. Private Sub opt_team_Click(Index As Integer)

  2.  
  3. dim favTeam as String

  4.  
  5.         Select Case Index

  6.             Case 0

  7.                 favTeam = "Favorite Team: Boston Red Sox"

  8.             Case 1

  9.                 favTeam = "Favorite Team: MSU Bulldogs"

  10.             Case 2

  11.                 favTeam = "Favorite Team: New England Patriots"

  12.             Case 3

  13.                 favTeam = "Favorite Team: Boston Bruins"

  14.             End Select

  15. End Sub