Dim startTime As Date = Now

Dim runLength As Global.System.TimeSpan = Now.Subtract(startTime)
Dim My_Minutes As Integer = runLength.TotalMinutes
If My_Minutes > 3 Then
msgbox("ok"
End If