how about this?
Maybe this would be worth a try:
Private Sub ocpick_AfterUpdate()
Dim msg, Style, Title, Response, MyString
Style = vbYesNo + vbDefaultButton1
Title = "Import OC Number?"
msg = "By Pressing YES, You will import this OC serial number and mark it as taken in...