VBAの文字検索および取得

Question

#実現したいこと
VBAのマクロを使用して文字列の検索・取得を行いたいです

###動作の流れ
１．左検索のとき
①現在の、アクティブセルの位置を変数に記憶する
②アクティブセルの左隣のセルをアクティブセルにする
③"有"という文字を探す
④見つかったら、"有3"なっている文字の"3部分を文字で取得して、数値型変数に変換する。
※文字の左からの位置ではなくて、文字の内容を取得したいです。
⑤先ほど変数に取得した3を2に変更して"有2"となるように書き換える
※このとき、"有"に関しては何も変更は加えません。
※数値は+1または-1します
⑥指定した範囲内まで左にずらしながら繰り返す。

２．右検索のとき
①現在のアクティブセルの位置を変数に記憶する
②アクティブセルの右隣のセルをアクティブセルにする
③"有"という文字列を探す
④見つかったら、"有3"なっている文字の"3部分を文字で取得して、数値型変数に変換する。
※文字の左からの位置ではなくて、文字の内容を取得したいです。
⑤先ほど変数に取得した3を2に変更して"有2"となるように書き換える
※このとき、"有"に関しては何も変更は加えません。
※数値は+1または-1します
⑥指定した範囲内まで右にずらしながら繰り返す。

ネットで調べるとInstrがヒットしたのですが、これが文字の左からの位置を取得するものみたいで使いたい方法と異なるためこちらに質問いたしました。

Answer 1

VBA 文字検索 と同じ質問ではないですか？
そちらに回答がついています。せっかく回答してもらっているのに、気に入らないからとほったらかしにして新しく質問を立てるのはとても失礼なことだと思います。

また、重複投稿はしないでください。適切な回答を得るには適切な質問をすることが大事です。
質問の仕方が悪ければ意図は伝わりません。
そういう場合は、元の質問を編集してください。
質問を編集すると、アクティブリストに載って人目に付きやすくなります。

質問するときのヒント をよくご覧になってください。
特に

teratailを「サポートセンター」だとは思わないでください。

作業依頼のような投稿をして、課題や仕事を無償でやってもらえる場ではありません。
あなたがそのようなつもりで質問しているのだと他のユーザーから誤解されないように、丁寧な質問を心がけましょう。

この部分を。

Answer 2

文字列の中から任意の文字を取り出したいときはMidを使います
こんな感じに

str = "あいうえお"
w = "う"

p = InStr( str, w )

ans = Mid( str, p+1 )

'ans には "えお" が入る