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