For loop after couple of If then else statements

[Mala]

Here is the code - Thanks for looking into this!

Code:

Dim i
If Browser("x").Page("y").WebEdit("a").GetROProperty ("Disabled") = False Then
            Reporter.ReportEvent micPass, "a", "a Enabled"
Else
            Reporter.ReportEvent micFail, "a", "a Enabled"
End If
If  Browser("x").Page("y").WebEdit("b"). GetROProperty("Disabled") = False Then
    Reporter.ReportEvent micPass, "b", "b Enabled"
Else
             Reporter.ReportEvent micFail, "b", "b Enabled"
End If
If Browser("x").Page("y").WebEdit("c").GetROProperty("Disabled") = False Then
    Reporter.ReportEvent micPass, "c", "c Enabled"
Else
    Reporter.ReportEvent micFail, "c", "c Enabled"
End If
Browser("x").Page("y").WebEdit("d").GetROProperty("Enabled") = False Then
    Reporter.ReportEvent micPass, "d", "d Disabled"
Else
    Reporter.ReportEvent micFail, "d", "d Disabled"
End If
If Browser("x").Page("y").WebEdit("e").GetROProperty("Disabled") = False Then
    Reporter.ReportEvent micPass, "e", "e Enabled"
Else
    Reporter.ReportEvent micFail, "e", "e Enabled"
End If

For i = 1 To 3
Browser("x").Page("y").WebEdit("a").Set DataTable("a", dtGlobalSheet)
Browser("x").Page("y").WebEdit("a").Set DataTable("b", dtGlobalSheet)
Browser("x").Page("y").WebEdit("a").Set DataTable("c", dtGlobalSheet)
Browser("x").Page("y").WebEdit("a").Set DataTable("d", dtGlobalSheet)
Browser("x").Page("y").WebEdit("a").Set DataTable("e", dtGlobalSheet)
Browser("x").Page("y").WebElement("Search").Click
Next