by Yuening Dai (30 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 9th January 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Use Function Join in VB6
Private Sub cmdJoin_Click()
'
Dim saTest(5) As String
Dim sElement As String
Dim I As Integer
'
'
sElement = txtTest.Text
'
For I = 0 To 5
saTest(I) = sElement
Next I
'
txtTest.Text = Join(saTest, "%") 'each substring is devided by "%".
'
End Sub