La función del API GetTickCount nos devuelve el número de milisegundos transacurridos desde el arranque del sistema.

Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long

Por ejemplo :

Dim l As Long, horas As Integer, min As Integer
l = GetTickCount() / 1000
horas = Int(l / 3600)
l = l - (3600 * horas)
min = Int(l / 60)
l = l - (min * 60)
MsgBox "Windows arrancado desde hace " & horas & " horas, " & min & " minutos y " & l & " segundos"