Programa Loco???

[Kruzado]

xx = InStr(1, tuvariable, "M")

if xx=o then
xx = InStr(1, tuvariable, "R")
if xx=0 then
msgbox "no es material no es reactivo"
else
msgbox "es reactivo"
else
msgbox "es material"
end if

la funcion instr busca un caracter especifico dentro de una cadena y devuelve su posicion, entonces si si encuentra una m, xx adopta el valor de la posicion donde esta ubicada esa m, entonces si x toa cualquier valor que no sea cero es porque encontraste el caracter que buscabas, se entiende?