Dim sArray7 As String If sBunsho Is Nothing Then sArray7 = Nothing Else sArray7 = sBunsho.Split({vbCrLf}, StringSplitOptions.None) End If