Windowsで.vbsを実行しているときにエラーが発生しました。 '）' vbスクリプト

Question

VBScriptに次の問題があると教えてください。私はこのエラーを取得しています：error expected ')'

のVBScript：

Const strSourceFile = "C:\Temp\test.txt" 
Const strTargetFile = "C:\Temp\test.csv" 
Dim strData 
Dim objFSO, objSourceFile, objTargetFile 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objSourceFile = objFSO.OpenTextFile(strSourceFile, 1, True) 
Set objTargetFile = objFSO.CreateTextFile(strTargetFile, True) 

Do While Not objSourceFile.AtEndOfStream 
    strData = objSourceFile.ReadLine 
    'msgbox strData 

    Dim strName, strAddress, strCity, strState, strZip 

    strName = Trim(Mid(strData, 1, 20)) 
    strAddress = Trim(Mid(strData, 21, 20)) 
    strCity = Trim(Mid(strData, 41, 20)) 
    strState = Trim(Mid(strData, 61, 2)) 
    strZip = Trim(Mid(strData, 63 5)) 

    objTargetFile.WriteLine("""" & strName & """,""" & strAddress & """,""" & strCity & """,""" & strState & """,""" & strZip & """") 
Loop 

msgbox "done!" 

Answer 1

はたぶん

strZip = Trim(Mid(strData, 63, 5)) 

（行方不明カンマ）