GUI Program to Demonstrate Split Function

Private Sub Command1_Click()
Dim s1 As String
Dim a() As String
Dim i As Integer
s1 = Text1.Text
Label2.Caption = " "
a = Split(s1)
For i = LBound(a) To UBound(a)
Label2.Caption = Label2.Caption & a(i) & vbCrLf
Next i
End Sub

Private Sub Command2_Click()
End
End Sub