Sub WriteList2(Dir As String, FileName As String, List1 As List, CharSet As String)
Dim sb As StringBuilder
sb.Initialize
For Each line As Object in List1
sb.Append(line).Append(CRLF)
Next
File.WriteString(Dir, FileName, sb.ToString, CharSet)
End Sub