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

左からではなくて右側から或る文字列を検索してその文字から右側のデータを取り出す方法です。拡張子を取り出すときに役立つのではないでしょうか？もっといい方法があるのでしょうか？

【事例】

Sub moji()

mojimoji = "test.txt"
Cells(1, 2) = Len(mojimoji)
mojisu = Len(mojimoji)
Cells(1, 3).Select
Selection.ClearContents
For i = mojisu To 1 Step -1
moji_search = Mid(mojimoji, i, 1)
If moji_search = "." Then
' Cells(1, 3) = Left(Cells(1, 1), i) '左からある特定の文字までを取り出したい場合
Cells(1, 3) = Mid(mojimoji, i, mojisu - i + 1) '右からからある特定の文字までを取り出したい場合
Exit For '見つけたい文字列が一番最初に見つかったらfor文は抜けるようにする
End If
Next i
End Sub