Como condicionar varias operaciones en vb de excel

Para dante amor

Tengo un combobox que tiene como lista = entrada, salida, devolución y desperdicio.

Tengo un textbox que al ingresar un código de un producto me busca en una base de datos y me trae la referencia si no existe el código me arroja un mensaje de error y además de eso me coloca en varios textbox los códigos de las materias primas que necesito. Esta operación se realiza con textbox bloqueados.

Quiero condicionarlo que en el caso que en el combobox coloque entrada, el textbox donde coloco el código me deje colocar otro dato diferente al que busca y que lo mismo haga con el resto de textbox inclusive que me acepte espacios en blanco, que me deje ingresar cualquier dato hacer de cuenta que es cualquier reciba cuanquier tipo de texto

este es el codigo 

Private Sub cod_ref_AfterUpdate()

Set h = Sheets("AAA")
Set b = h.Columns("A").Find(cod_ref)
ref_prod = ""
If Not b Is Nothing Then
ref_prod = h.Cells(b.Row, "B")
Else
MsgBox "No existe el dato", vbExclamation, "BUSCAR EN LA BASE"
cod_ref.SetFocus
End If
Set b = h.Columns("A").Find(cod_ref)
codmp1 = ""
If Not b Is Nothing Then
codmp1 = h.Cells(b.Row, "D")
Else
MsgBox "No existe el dato", vbExclamation, "BUSCAR EN LA BASE"
cod_ref.SetFocus
End If
Set b = h.Columns("A").Find(cod_ref)
codmp2 = ""
If Not b Is Nothing Then
codmp2 = h.Cells(b.Row, "E")
Else
MsgBox "No existe el dato", vbExclamation, "BUSCAR EN LA BASE"
cod_ref.SetFocus
End If
Set b = h.Columns("A").Find(cod_ref)
codmp3 = ""
If Not b Is Nothing Then
codmp3 = h.Cells(b.Row, "f")
Else
MsgBox "No existe el dato", vbExclamation, "BUSCAR EN LA BASE"
cod_ref.SetFocus
End If
Set b = h.Columns("A").Find(cod_ref)
codmp4 = ""
If Not b Is Nothing Then
codmp4 = h.Cells(b.Row, "G")
Else
MsgBox "No existe el dato", vbExclamation, "BUSCAR EN LA BASE"
cod_ref.SetFocus
End If
Set b = h.Columns("A").Find(cod_ref)
codmp5 = ""
If Not b Is Nothing Then
codmp5 = h.Cells(b.Row, "H")
Else
MsgBox "No existe el dato", vbExclamation, "BUSCAR EN LA BASE"
cod_ref.SetFocus
End If

End Sub