【VBA】文字列から、拡張子を取得して文字列として返す

Public Function GetExtension(ByVal str As String) As String
    
    Dim p As Long: p = GetCharPos(str, ".")
    
    If p = 0 Then
        MsgBox "拡張子が判定できません" & vbCrLf & vbCrLf & _
        "【指定された文字列】" & vbCrLf & _
        "「" & str & "]", vbCritical, "マクロを中止します"
        Call AllEnd
    End If
    
    GetExtension = Mid(str, p)
End Function