[RESOLVED] simple change in replacement

[om-yousif]

i have this code to add spaces between some symbols in a text box

With txtFileText
        .Text = Replace(.Text, ">", " > ")
        .Text = Replace(.Text, "<", " < ")
        .Text = Replace(.Text, ".", " . ")
        '.Text = Replace(.Text, """, " " ")
End With

what should i change in the last replacment to let me add spaces for the symbol "

[RobDog888]

.Text = Replace(.Text, Chr(34), Chr(32) & Chr(34) & Chr(32))

[Doomguy0505]

"""" is the same as chr(34)
" "" " is the same as " " & Chr(34) & " "

.Text = Replace(.Text, """", " "" ")

[djklocek]

With txtFileText
        .Text = Replace(.Text, ">", " > ")
        .Text = Replace(.Text, "<", " < ")
        .Text = Replace(.Text, ".", " . ")
        
        Dim x As String
        x = Chr(34) ' ascii for "
 
        '.Text = Replace(.Text, x, " " & x & " ")
End With

Did it help?

[om-yousif]

i tried the three ways and all works

thanks everyone