VBA help to lookup and paste text box value

Could someone help me out with getting this formula into VBA. I have a userform that has a text box in it. When the user enters a number value in this text box I'd like to perform this formula then paste the value from the text box that the user entered into column C.

The userform will be accessed in a sheet named "Moulder 1" and the lookup sheet is named "Product Code List"


Here's the lookup formula.
=IF(ISBLANK(B4),"",VLOOKUP(B4,'Product Code List'!$A$2:$D$298,3,0))

thanks in advance
Excel 2010

Sorry I forgot to mention that my text Box that I want to pass the value from is labeled as TextPackSize

In case anyone else needed this here's the code that works perfect for me.

Please Login or Register  to view this content.