Seleccionamos un Articulo y aparece su Existencia (Va dirigida a Dante Amor)

Con el siguiente código te busca el artículo, si existe te aparece el código, si no existe te envía un mensaje

Private Sub ComboBox1_Change()
'Por.Dante Amor
    limpiar
    If ComboBox1 = "" Then
        Exit Sub
    End If
    Label8 = Hoja1.Cells(ComboBox1.ListIndex + 2, "A")
    Set b = Hoja6.Columns("A").Find(Val(Label8))
    If Not b Is Nothing Then
        Label11 = Hoja6.Cells(b.Row, "B")
    Else
        MsgBox "El código no tiene existencias"
        limpiar
        ComboBox1.SetFocus
        Exit Sub
    End If
End Sub