Public Function GetExtension (Filename As String) As String


    Dim LenFilename As Integer
    LenFilename = Len(Filename)
    
    If LenFilename = 0 Then Exit Function
    
    Dim Pos As Integer
    Pos = InStrRev(Filename, ".")
    
    GetExtension = ""
    
    If Pos > 0 Then
        If Pos < LenFilename Then
            GetExtension = LCase(Right(Filename, LenFilename - Pos))
        End If
    End If
End Function