请高人指教，谢谢

Public Sub recordLog(ByVal userID As String, ByVal modelName As String, Optional ByVal logType As String = "err", Optional ByVal logDescription As String = "")

        Try
            Dim myWrite As New Xml.XmlTextWriter(Application.StartupPath & "\eventlog.xml", Nothing)
            WriteLog(myWrite, userID, modelName, logType, logDescription)

            myWrite.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub WriteLog(ByVal writer As Xml.XmlTextWriter, ByVal userID As String, ByVal modelName As String, ByVal logType As String, ByVal logDescription As String)
        Try
            With writer
                .WriteStartDocument()
                .WriteWhitespace(" ")
                .Formatting = Xml.Formatting.Indented
                .WriteStartElement("eventlog")
                .WriteStartElement("eventcon")
                .WriteElementString("事件时间", System.DateTime.Now)
                .WriteElementString("操作人", userID)
                .WriteElementString("模块名称", modelName)
                .WriteElementString("事件类型", logType)
                .WriteElementString("事件描述", logDescription)
                .WriteEndElement()
                .WriteEndElement()
                .WriteEndDocument()
            End With
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub