スキルアップ・問題解決なら、モーグにおまかせ！

いつもお世話になります。
 
現在時刻を10分単位で表示することは
EXCEL上でなら　=CEILING(NOW(),"0:10:00")と
出来るのですが、これをVBAでやろうと
 
Sub TEST()
    Dim TIME As Date
    TIME = Hour(Now()) & ":" & Minute(Now())
    Range("A1").Value = WorksheetFunction.Ceiling(TIME, "0:10:00")
End Sub
 
TIME変数には秒まで入ってしまいます。
どう修正すれば良いでしょうか。
 
よろしくお願いします。

たかさん@富山 さんの引用:
いつもお世話になります。
 
現在時刻を10分単位で表示することは
EXCEL上でなら　=CEILING(NOW(),"0:10:00")と
出来るのですが、これをVBAでやろうと
 
Sub TEST()
    'Dim TIME As Date
    'TIME = Hour(Now()) & ":" & Minute(Now())
    'Range("A1").Value = WorksheetFunction.Ceiling(TIME, "0:10:00")
    Range("A1").Value = Format(Application.WorksheetFunction.Ceiling(Now(), 1 / 96), "hh:mm")
End Sub
 
TIME変数には秒まで入ってしまいます。
どう修正すれば良いでしょうか。
 
よろしくお願いします。

代案、↓
 
    Range("A1").Value = Format(WorksheetFunction.Ceiling(Now(), TimeValue("0:10:00")), "hh:mm")
 

 WinArrow様
 
ありがとうございます。
無事、解決しました。
 
お礼が遅くなりました。