Windows 函数创建新行和新列

我正在尝试创建一个函数来写入内容，在csv输出文件中创建新行和新列 以下是我的功能：

Function WriteOutputToCSV(strCSVOutput)
'Check if file exists & write the data
On Error Resume Next

Set objUserCSV = objCSV.OpenTextFile(UserCSV, ForAppending)

If objCSV.FileExists(UserCSV) Then
   If CStr(strCSVOutput) = "*newline*" Then
    objuserCSV.Write vbcrlf
   Else if CStr(strCSVOutput) = "*newcolumn*" Then
    objuserCSV.value(columncount,1)="***"
    objuserCSV.Write vbcrlf
    columncount = columncount+1
   Else
    If CStr(InStr(1,strCSVOutput, ",")) Then
        strCSVOutput = Chr(34) & strCSVOutput & Chr(34)
    ElseIf CStr(Trim(strCSVOutput)) = "" Then
        strCSVOutput = " " 
    End If  
    objUserCSV.Write strCSVOutput & ","
   End If
Else    
' file DNE
End If

objUserCSV.Close
End Function

---

但它不起作用（语法错误是在“'file DNE”前面的第行缺少一个结尾，我不知道为什么它是错的），我也不认为新的列1起作用。有什么帮助吗？谢谢

在

Else

和

if

之间有一个不应该存在的空格。这一行：

Else if CStr(strCSVOutput) = "*newcolumn*" Then

应假定为：

ElseIf CStr(strCSVOutput) = "*newcolumn*" Then