Sub Sample() Dim msg As String msg = "横浜市" & vbCrLf & "保土ヶ谷区" If InStrB(msg, Chr(10)) > 0 Then MsgBox MidB(msg, InStrB(msg, Chr(10))) Else MsgBox "改行コードが含まれていません" End If End Sub