>943
同じになるかどうかやってみそ!

下のは、
A = Split(Text1.Text, vbCrLf)