Private Sub Form_Click() Dim a As Variant Dim strT As String Dim i As Long a = Split(Text1.Text, " ") For i = LBound(a) To UBound(a) If Trim(a(i))