Adding character to the begining and end of a multiline textbox

[realone]

Hi guys,
i want to add a character to the begining and the end of a multilne text box and save it into a file. e.g

1234
6789
9087

output
'1234',
'6789',
'9087'
i will appreciate the code to achieve this in vb6

[selvaganapathy]

Hi,
U can do parse the Text first, then apply single quotes

To Parse

Dim MyArr 
   MyArr = Split (Text1.Text, vbCrLF)

Iterate through loop and add single quotes

Dim i as Integer
  Dim newString as String

  For i = 0 To UBound(MyArr)
     newString = newString & "'" & MyArr(i) & "'" & vbCrLf
  Next
  
  Text1.Text = newString

[Jx_Man]

great code.
just to correct ;)

newString = newString & "'" & MyArr(i) & "'," & vbCrLf

[selvaganapathy]

Hi Jx_Man,
Thanks