Calcular tiempo que tarda un proceso

Dim inicio As DateTime = DateTime.Now

'---Proceso que se va a realizar

Dim fin As DateTime = DateTime.Now

Dim totalMin As String
Dim total As TimeSpan = New TimeSpan(fin.Ticks - inicio.Ticks)
totalMin = total.Hours.ToString("00") & ":" & total.Minutes.ToString("00") & ":" & total.Seconds.ToString("00")

Resultado: 00:15:46