Timer 関数

処理時間の測定にTimer関数を使用します。
Timer関数は、午前０時から経過した秒数を表す単精度浮動小数点数型の
値を返しますので計測対象の前後に入れて掛かった時間を計測します。
指定のしかたはこの様にします。 

  Timer 関数
構文  　Timer
引数　　なし

Private Sub Sample  ()
Dim StTim  As  String
Dim EdTim  As  String
StTim = Timer
－－－計測対象処理－－－
EdTim = Timer
Msgbox "処理時間は、" & EdTim - StTim & "秒です。"
End Sub