正規表現で判別

vb.net 
Imports System.Text.RegularExpressions
'ファイル形式を判別
Public Function fnFileTypeA(ByVal temID As String)
	temID = StrConv(Trim(temID), VbStrConv.Lowercase)        '前後の空白除去し半角にする
	If Regex.IsMatch(temID, "^.*\.ai$|^.*\.eps$|^.*\.pdf$|^.*\.svg$|^.*\.png$") Then 'ファイル形式判別の正規表現
		fnFileTypeA = True  '---< 正常：指定範囲内 >---
	Else : fnFileTypeA = False
	End If
End Function