Is this possible? [Resolved]

[INF3RN0666]

Select Case Extention
      Case "com"
      Case "exe"
      Case "gif" Or "jpg" 'Or "jpeg" Or "jpe" Or "psd" Or "pdd" Or "bmp" Or "pict" Or "pcx" Or "tif" Or "tiff" Or "png"
        ImageNum = 10
      Case "mp3" 'Or "wav" Or "ram" Or "ra" Or "rm" Or "au"
        ImageNum = 6
      Case "txt"
      Case "zip"
      Case Else
        ImageNum = 5
    End Select

Well I know that the code I posted won't work, but is there a similar way to do it? Or must I type every single last CASE statement?