Erro ASP

Olá pessoal, estou com os seguinte erro

(Number: 13 Source: Microsoft VBScript runtime error

// Description: Type mismatch)

O trecho do código:

Function arquivo_gravar()

 strStatus = mensagemStatus(strStatus,"<br> // Lendo arquivo enviado.","blue")
 Err.Clear
 Set objUpload = Server.CreateObject("Dundas.Upload.2")
 objUpload.MaxFileSize = 10000000
 objUpload.UseUniqueNames = true
 objUpload.Save Server.MapPath("../temp/")
 If Not Err Then
 arrArquivo = Array(objUpload.Files(0).Size, objUpload.Files(0).Path, objUpload.Files(0).OriginalPath)
 strStatus = mensagemStatus(strStatus,"Arquivo gravado - Tamanho            : " &arrArquivo(0)/1000& " KB","black")
 strStatus = mensagemStatus(strStatus,"Arquivo gravado - Nome Original      : " &Mid(arrArquivo(2),InStrRev(arrArquivo(2),"\")+1,Len(arrArquivo(2))),"black")
 strStatus = mensagemStatus(strStatus,"Arquivo gravado no diretório com sucesso!","darkgreen")
 arquivo_gravar = arrArquivo
 End if
 Set objUpload = nothing

End Function
Alguém sabe do que se trata?