Select Case IntidCase 1 Text="Jannet"Case 2 to 4 Text="Mark"Case 5, 7 Text="Jerry"Case Else Text="Sue"End Select