Bad_Code

    Private Sub toErrorLog(ByVal contents As String)
        Try
            File.AppendAllText("C:\images\error.txt", contents)
        Catch ex As Exception
            toErrorLog(Now & " could not write to error log.")
        End Try
    End Sub