Private Sub cmdExec_Click()

  Me!txtOutPut = "定数 vbCrLf を使うと、複数行の" & vbCrLf & _
                  "文字列を" & vbCrLf & _
                  "テキストボックスに出力することが" & vbCrLf & _
                  "できます！" & _
                  vbCrLf & vbCrLf & _
                  "こんな風にね！"

End Sub