Sub LogErrorText() Dim intFile As Integer intFile = FreeFile Open CurDir & "\ErrorLog.Txt" For Append Shared As intFile Write #intFile, "LogErrorDemo", Now, Err, Error, CurrentUser() Close intFile End Sub