Dim test as double=timer for l as integer=0 to 100000 next l dim xx as double xx=(int((Timer-test)*10000)) /10000 ?timer-test ?xx sleep