ExcelVBA初心者です。

文字を入力していき、ある文字数をオーバーするか改行コードがくると
結合したセルの行幅を自動で調整するという処理をしたいのですが、うまくいきません。
どなたか教えていただけないでしょうか。

【詳細内容】
ある結合したセルの1行のMAX文字数を５として、
実際に入力すると
文字数が６以上になるか、
Alt + Enter(改行コード)が発生すると、
（改行して）自動で行幅を増やして、
その後の文字を入力する。
文字を消せば行がデフォルトの幅に戻る。

【例】
「ＡＢＣＤＥＦＧ改ＨＩＪ改ＫＬＭＮＯＰ」があったとします。
（改→改行コード）
これを↓このように自動で改行して表示させたいです。

ＡＢＣＤＥ
ＦＧ
ＨＩＪ
ＫＬＭＮＯ
Ｐ

どなたか詳しい方教えていただけないでしょうか。
よろしくお願い致します。