Dim line1 As String line1 = TextBox1.Lines(0) MsgBox("1行目は" & line1) Dim line2 As String line2 = TextBox1.Lines(1) MsgBox("2行目は" & line2) MsgBox("合わせて" & line1 & line2) MsgBox("改行を入れるなら" & vbNewLine & line1 & vbNewLine & line2)