[VB] Get File Extention

Public Function GetFileExtention(ByVal sStr As String) As String
On Error Resume Next
Dim i As Integer

i = InStrRev(sStr, ".")
If i = 0 Then Exit Function
GetFileExtention = Mid$(sStr, i + 1, 12)
End Function