TimeValue関数

構文
TimeValue(time)
引数timeには、時刻を表す文字列式を指定します。

解説
引数timeで指定された時刻を表すシリアル値を返します。

サンプル
次の例は、ユーザーが入力した時刻を表示します。

Sub Sample()
    Dim time As String
    time = InputBox("時刻を入力してください（hh:mm:ss）")
    MsgBox TimeValue(time)
End Sub