VB如何用If……Else判断语句来删除system32目录下的四个文件（A.dat、B.exe、C.mp3、D.mp3）？

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Dim syspath As String

Private Sub Form_Load()
syspath = Space(256)
GetSystemDirectory syspath, 256
syspath = Trim(syspath)
syspath = Left(syspath, Len(syspath) - 1)
End SubPrivate Sub Cmddel_Click()
dim i as integer,FN as string,Fns() as string
fns=split("A.dat、B.exe、C.mp3、D.mp3","、")
for i=0 to ubound(fns)
fn=syspath & "\" & fns(i)
if dir(fn)<>"" then kill fn
next
End Sub