Capturar los datos mas importantes de un producto cualesquiera, incluyendo

PUBLIC SUB Button1_Click()DIM A AS String
A = TextBox5.Text
IF A = ("NACIONAL") OR A = ("ECUADOR") THEN
Message("REALIZAR ORDEN DE COMPRAS")
ELSE
Message("PRODUCTO EXTRANJERO")
END IFEND