By the way, unless you've got a good reason for using an ActiveX control you'd be far better off using the Data Validation setting on cell B3 to show the drop down list, then in cell B6 you could use the formula:

=IF(B3="","",VLOOKUP(B3,DATASHEET!A:B,2,FALSE))

And that would get rid of the need for VB altogether (plus embedded ActiveX controls have a reputation for being a bit flaky, so are probably best avoided).