左からある特定の文字列までの文字列を取り出すマクロ~その２~

前に，ある文字列のある文字以降の文字列を取り出す方法を示しましたが文字列検索がうまく出来なかったのでfor文を使用して取り出すようにしていました．文字列検索の関数が分かったのでとっても楽になります．

【事例】
Sub moji()
mojimoji = "test.txt"
Cells(1, 2) = Len(mojimoji)
mojisu = Len(mojimoji)
Cells(1, 3).Select
Selection.ClearContents
serchi_char = "."
moji_search = InStr(1, mojimoji, serchi_char, 1)
Cells(1, 3) = Mid(mojimoji, moji_search)
End Sub

【解説】
基本的にはその１と同じですが右側から検索したい場合は、その１を使用したほうがよいようです。