dt等宣言が必要なのかと思いましたが、勘違い 
していました。 
すみませんでしたm(__)m 
 
Dim nowTime As String 
nowTime = Format(Now, "HH:mm") 
上記のようにNowからHH:mmを取り出していました。 
 
教えていただいたModuleを使い、 
Dim nowTime As String 
nowTime = Format(Sample.To28HourString(Now), "HH:mm") 
としてHH:mmを取り出そうと思いましたが、文字列HH:mm 
が入ってしまいます。 
 
どのようにSample.To28HourString(Now)からHH:mmを取り出したらいいでしょうか？ 
教えていただけると助かります。 
よろしくお願いしますm(__)m