3. Jak odczytać rozszerzenie pliku?

Function Ext(Path As String)
Dim i As Integer
    For i = Len(Path) To 1 Step -1
        If Mid$(Path, i, 1) = "." Then
            Ext = Mid$(Path, i + 1)
            Exit Function
        End If
    Next i
End Function