To find out the number of milliseconds that have elapsed since windows was started, use the API function GetTickCount. It returns
a long containing the elapsed time in milliseconds. There are 1000 milliseconds in a second, so you divide the results by 1000 to get
the seconds then divide that by 60 to get how many minutes.

===================================================================
Option Explicit

Private Declare Function GetTickCount& Lib "kernel32" ()

Private Sub Command1_Click()
Dim sec As Long
Dim mins As Long

sec = GetTickCount
sec = sec / 1000 'Convert millisecond in to seconds
mins = sec / 60 'Convert seconds in to minutes
Text1 = mins
End Sub