รบกวนสอบถามว่ามันติด Error ตรง ANSIFile.Write ANSIContent , Error#5 เหมือนว่าขาดพารามิเตอร์อะไรไป ต้องเติมอะไรครับ?

Sub ConvertUNICOD2ANSI()
Dim fso As Variant
Dim oFolder As Variant
Dim ofiles As Variant
Dim file As Variant
Dim ANSIFile  As Variant
Dim UNICODEFile As Variant
Dim ANSIContent As Variant

Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Const TristateTrue = -1
Const TristateFalse = 0
Const TristateUseDefault = -2

Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder("D:\SourceTxt\")
Set ofiles = oFolder.Files

For Each file In ofiles
If Right(file.Name, 3) = "txt" Then
'object.OpenTextFile(filename[, iomode[, create[, format]]])
Set UNICODEFile = fso.OpenTextFile(file.Path, ForReading, False, TristateTrue)
ANSIContent = UNICODEFile.ReadAll
Set ANSIFile = fso.OpenTextFile("d:\ConvertTxt\ANSI" & file.Name, ForAppending, True, TristateFalse)
ANSIFile.Write ANSIContent '<<< Error ตรงนี้ครับ
End If
Next
End Sub