Appoggiandosi al namespace System è possibile utilizzarne la proprietà Environment.TickCount per ottenere il numero di millisecondi trascorsi dall'avvio del sistema.
Una volta ottenuto il valore lo si divide per 1000 per ottenere i secondi trascorsi.

'Secondi trascorsi dall'avvio del sistema
Dim secTrascorsi As integer = System.Environment.TickCount / 1000

In Visual Basic 6 è necessario far ricorso all'API GetTickCount
Private Declare Function GetTickCount Lib "Kernel32" () As Long
Dim secTrascorsi As Integer
   secTrascorsi = Int(GetTickCount() / 1000)