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