Ошибка, которую вы наблюдаете, вызвана сигнатурой вашей процедуры ListFiles
. В VBScript все переменные / параметры имеют тип Variant
, поэтому вы не должны явно указывать тип. Измените это:
Sub ListFiles(f, folderPath As String, fileType As String)
на это:
Sub ListFiles(f, folderPath, fileType)