質問です

入力した文字列の時刻の値を比較して結果を出したいのですがどうすればいいでしょうか？
例えば↓のようなことがやりたいです
このままだと何を入力しても12時前になって困っています

Function Calc(val As String) As String
　If val < Time(12. 0. 0)
　　Calc = "12時前"
　Else
　　Calc = "12時以降"
　End If
End Function

よろしくお願いします