Dim objWMIService
Dim strComputer
Dim colLogFiles
Dim objLogFile
Dim errBackupLog

LogType = "System"
Set colLogFiles = GetObject("winmgmts:{impersonationLevel=impersonate,(Backup)}!\\.\root\cimv2").ExecQuery _
    ("Select * from Win32_NTEventLogFile where LogFileName='" & LogType & "'")
For Each objLogfile in colLogFiles
    errBackupLog = objLogFile.BackupEventLog("c:\test.evt")
    If errBackupLog <> 0 Then
        Msgbox "The " & LogType & " event log could not be backed up."
    End If
	Msgbox  LogType
Next

Set objWMIService = Nothing
'Msgbox "Complete backup "