dim = myHexsub doWork(data, index)Select Case Indexcase 0: MyHex = Hex(data)msgbox myHexend Selectend sub