``` '指定文件名和内容写文件(追加到末尾) Public Function writeToFileB(strFileName$, strContent$) As Boolean '向文件追加记录 Open strFileName For Append As #1 Print #1, strContent Close #1 writeToFileB = True Exit Function Err1: writeToFileB = False End Function ```