ファイルの拡張子を取得するには？

---

ファイルの名前を取得することができますが、
どうも拡張子を取得することができないようです。
拡張子を取得するにはどうすればよいのでしょうか。

編集 削除

---

ファイル名が取得できているのならたとえば
    Dim FileNameArray
    Dim StrFileName As String
    StrFileName = "Test.Txt"
    If InStr(1, StrFileName, ".") = 0 Then
        MsgBox "なし"
    Else
        FileNameArray = Split(StrFileName, ".")
        MsgBox FileNameArray(UBound(FileNameArray))
    End If
とか・・・
拡張子なし判定は、
If UBound(FileNameArray)) = 0 Then
でもいい。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。