複数行からなるTextBoxから最初の一行を取り出す方法 (ID:119073)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Text2 = Left(Text1, InStr(Text1, vbCrLf)) でどうでしょう？