VB code to find text

Hello:

Please refer to attached file.
I need VB Code to do following.
Look for description starting with text "Check" in column C.
If it finds then copy the number after # from that cell into corresping cell in column B.

Example:
Cell C8 = Check #1124, so put B8 = 1124

Let me know if you have any questions.
Thanks.