String Array 1

[leaf3]

Hello,
I am trying to create an array so that it would look like the following: vtSecurity = "AA", "BB, "CC", "DD". But I can't make it so that both quotation marks would surround each string in the final array. This code is what I could get so far.
If UBound(sSecArray) > 0 Then
For Y = 1 To UBound(sSecArray)

If Y = 1 Then
vtSecurity = sSecArray(Y) & """"
Else
vtSecurity = vtSecurity & "," & " " & SecArray(Y) & """"
End If
Next
End If
Thank you for any ideas.

 

[bjd4jc]

try

vtSecurity = Chr(34) & sSecArrayY) & chr(34)

 

[sunaj]

It looks as if you are trying to make a string from an array- correct?
If so here is a short cut:
----------------------------------------
Dim a As Variant, s As String
a = Array("AA", "BB", "CC", "DD&quot
s = """" & Join(a, """,""&quot & """" 'this is it.
MsgBox s
----------------------------------------- Sunaj
'The gap between theory and practice is not as wide in theory as it is in practice'