You can do this
[Text1] = Format(Time, "HH:mm")

Result is your current time with 24 hours format
Example 3pm

15:00