Try using DatePart as shown below. It will give you Military Time automatically.

Code:
    Text1.Text = DatePart("h", "3:55 PM") & ":" & DatePart("n", "3:55 PM")
HTH