If something is missing, I will gladly add the function.
Log(GetMimeTypeByExtension("jpg"))
Public Sub GetMimeTypeByExtension(Extension As String) As String
Extension = Extension.Replace(".","").ToLowerCase
Select Extension
Case "jpg","png","gif","bmp","ico","svg","webp"...