Wish Add "Quoted" function to string object

[qsrtech]

Pls try and add a "Quoted" and "Quoted2" function to the string object

eg.
dim s as string
dim sql as string

s="Something"
sql=s.quoted 'returns "Something"
sql=s.quoted2("'") ' returns 'Something'

quoted2 allows the original string to be wrapped with any string

 

[Erel]

You can easily create such sub:

Sub Quoted(s As String) As String
Return """" & s & """"
End Sub