Try this

Dim TestStr as string

TestStr = "Test"
debug.print TestStr '(Test)
TestStr = Chr(34) & TestStr & Chr(34)
debug.print TestStr '("Test")

Try it out
Adrian