Run Mulitple Browser in same time using (Application.OnTime TimeToRun,

[anandanr16]

Hi, I want to run some conditions for one browser and do the same for browsers.When i try "Application.On Time TimeToRun, "Chrome"" its working fine ,but when i want to do the same for 3 browser at same time its taking only last condtions .
Pleass find the code below and let me know how to run all 3 conditions same time.

Sub DeleteonTime()
Dim a As String
a = ThisWorkbook.Sh eets("Sheet1"). TextBox1.Value
TimeToRun = Now + TimeValue(a)
If UserForm1.IE.Va lue = True Then
intFlag = 1
Application.OnT ime TimeToRun, "Callfuncti on"

End If
If UserForm1.Chrom e.Value = True Then
intFlag = 1
'TimeToRun = Now + TimeValue(a)
Application.OnT ime TimeToRun, "Chrome"
End If

If UserForm1.FF.Va lue = True Then
intFlag = 1
Application.OnT ime TimeToRun, "FireFox"
End If
End Sub