Dim array_a As Array
        Dim array_b As Array
        Dim a As Integer
        Dim b As Integer
 
        array_a = Split(TextBox1.Text, vbCrLf)
 
        For a = LBound(array_a) To UBound(array_a)
 
            array_b = Split(array_a(a), ":")
 
            For b = LBound(array_b) To UBound(array_b)
                'MsgBox(array_b(b))
            Next b
 
 
        Next a