VBA Saving issue with quotes

I'm trying to save some data out to a text file:

Here's my code:

dim data as string
data="data"
Open strPath for Output as #1
Write #1, data
Close #1

in the file writes, I get
"data"

(with quotes), I do not want the quotes, what am I doing wrong?

TIA!

Thanks!!! That was easy