I believe this is the method you are after:

VB Code:
  1. Dim Start As Double = DateAndTime.Timer()

  2.  
  3.         Code…

  4.  
  5.         Dim Finish As Double = DateAndTime.Timer()

  6.         Me.Text = CStr(Start & " : " & Finish & " :: " & Finish - Start)