a = "AAA 111、BBB 2222、CCC 333333、DDD 44444444、EEE 5555"

a2 = Split(a, "、")

If UBound(a2) > 2 Then

  a2(3) = vbLf & a2(3)

End If

Dim a3 As String

a3 = Join(a2, "、")



' 上記 a3 の中身は、下記のように 3 つ目の「、」の後ろに 

' LF 改行が含まれた文字列になる。 

' 

' a3 = "AAA 111、BBB 2222、CCC 333333、" & vbLf  _ 

'    & "DDD 44444444、EEE 5555"