Iam getting syntax error when use sub under IF, please assist

[khkrish]

EL_SUCCESS = 0
 
EL_ERROR = 1
 
EL_WARNING = 2
 
EL_INFO = 4
 
EL_AUDIT_SUCCESS = 8
 
EL_AUDIT_FAILURE = 16
Set WshShell = CreateObject("WScript.Shell") 
 
set oFs = WScript.CreateObject("Scripting.FileSystemObject")
set oDrives = oFs.Drives
for each oDrive in oDrives
if odrive.driveletter = "C" then
percent_used_tmp= (oDrive.freeSpace /oDrive.TotalSize)*100
res1=instr(percent_used_tmp,".")
percent_used = Left(percent_used_tmp,res1 + 2)
if percent_used < 100 then
percent_used= 100 - percent_used
end if
if percent_used = 100 then 
MsgBox " Please Check Drive Space."& vbcrlf & _
" "& vbcrlf & _ 
" WARNING!" & vbcrlf & _
" You are out of disk space on the server! " & vbcrlf & _
" You must delete unnecessary files" & vbcrlf & _ 
" You are not able to save files on the server at this time.",48, "You are out of disk space on the server!"
 
 
elseif percent_used > 85 then
 
MsgBox " Please check Drive Space ."& vbcrlf & _
" "& vbcrlf & _
" WARNING!" & vbcrlf & _
" You have utilized " & percent_used & "% of your allocated disk space on the server." & vbcrlf & _
" You are not able to save files on the server at this time.",48, "You are out of disk space on the server!"
 
WriteToEventLog EL_Warning, "successful..."
 
sub WriteToEventLog(sLogEID,strELMessage)
 
objShell.LogEvent sLogEID, strELMessage
 
 
 
elseif percent_used < 85 then
'*msgbox "it works",48, "Reminder"
end if
end if
 
next

[khkrish]

Im trying to log the message to windows event log, however iam getting syntax error when is inserted below lines in script

elseif percent_used > 20 then
 
MsgBox " Please check Drive Space ."& vbcrlf & _
" "& vbcrlf & _
" WARNING!" & vbcrlf & _
" You have utilized " & percent_used & "% of your allocated disk space on the server." & vbcrlf & _
" You are not able to save files on the server at this time.",48, "You are out of disk space on the server!"
 
WriteToEventLog EL_Warning, "successful..."
 
sub WriteToEventLog(sLogEID,strELMessage)
 
objShell.LogEvent sLogEID, strELMessage
 
end sub

[Rabbit]

Please use code tags when posting code or formatted data.

You can't start a sub within another sub. You need to end the other one first.