• Home
 · 
• Miscellaneous
 · 
• Use Function Split in VB6

Use Function Split in VB6

Use Function Split in VB6

Rate Use Function Split in VB6

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'see the result.
'See VB help for more detailed info.
'
Private Sub cmdSplit_Click()
  '
  Dim saTest() As String
  Dim sToBeShown As String
  Dim I As Integer
  '
  '
  If InStr(1, txtTest.Text, " ") = 0 Then
    MsgBox "Type a string with space(s) in it, and try again!"
  End If
  '
  saTest = Split(txtTest.Text, " ", -1, vbTextCompare)
  '
  For I = 0 To UBound(saTest)
    sToBeShown = sToBeShown & saTest(I)
  Next I
  '
  txtTest.Text = sToBeShown
  '
End Sub