My code isn't finding "Dim"

I have some code that requires putting data into a "Dim".
My code is this:
 
Dim mg
mg = Split(Application.Contents("news"),"•")
For Each rt In mg
[color=#4b0082 font="courier new"]  Response.Write(rt & "<br />")
[color=#0000ff font="courier new"]Next
 
but when you view the page, an error message appears saying: "Object Expected: 'mg'"
 
I'm sure it's embarassingly simple, but i can't figure out why it can't find "mg"... can anyone help?

Dim simply declares the variable to the interpreter. The problem is this statement:

mg = Split(Application.Contents("news"),"•")

I have no idea exactly what you are trying to split (we would need more code to tell) but whatever it is isn't working.