You could always use a dictionary and put the information in a setting file.
Dim mimeTypeList As New Dictionary(Of String, String)
mimeTypeList.Add(".avi", "video/x-msvideo")
mimeTypeList.Add(".css", "text/css")
mimeTypeList.Add(".avi", "application/msword")
' ...
If mimeTypeList.Contains(extension.ToLower()) Then
Return mimeTypeList(extension.ToLower())
End If
Return "application/octet-stream"
But I'm pretty sure IIS already has all of this built-in.