inStr og arrays. Eller noget?

dim besked, alias()
besked = "BM din ost, kan du godt lide makrel ?"
redim alias(0,1)
alias(0,0) = "BM"
alias(1,0) = "MA"
alias(0,1) = "BurgerMann"
alias(1,1) = "Makrel"
'----------------------
Her, er spørgsmålet på dansk:
Hvis besked indeholder noget ligesom i, alias(1), dvs initialerne, skal du erstatte initialerne med alias(2), hele navnet.
BM = BurgerMann
MA = Makrel
besked = BurgerMann din ost, kan du godt lide Makrel ?
'----------------------
er det noget med:
if InStr(1,besked,alias(0,0)) then
    besked = replace(besked,alias(0,0), alias(0,1))
end if
response.write(besked)
???
Hvordan skriver man det i ASP?