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

α 2001-10-09 01:35:54 No: 74913

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

Say 2001-10-09 05:08:06 No: 74914

ファイル名が取得できているのならたとえば
    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
でもいい。