Prova in questo modo:

Dim Stringa As String
Stringa = "c:\programmi\test"

Stringa = Replace(stringa, "\", "\\")

Stai attento a non farla eseguire più volte potresti trovarti n....\

Ciao