Here if you want to make delay program using Visual Basic :

Public Sub BKWait(HowManySecs)
' pause for HowManySecs seconds
Dim EndWait
EndWait = DateAdd("s", HowManySecs, Now)
While Now < EndWait
' dummy text
Wend
End Sub