Code:
txtMachineNo.Text = Split(Combo1.Text, "_&_")(0)