拡張子がついたファイル名から拡張子の部分を返す

' 機能概要: 拡張子がついたファイル名から拡張子の部分を返す
' 引数:
'   strFileName - ファイル名（拡張子含む）
' 戻り値:
'   String - ファイルの拡張子

Function GetFileExtension(strFileName As String) As String
    Dim intDotPosition As Integer
    GetFileExtension = ""

    ' ファイル名から最後のドットの位置を見つける
    intDotPosition = InStrRev(strFileName, ".")

    ' ドットが見つかった場合、拡張子を抽出
    If intDotPosition > 0 Then
        GetFileExtension = Mid(strFileName, intDotPosition + 1)
    End If
End Function