Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#

' Returns current system time in the system-defined long time format.
MyStr = Format(Time, "Long Time")

' Returns current system date in the system-defined long date format.
MyStr = Format(Date, "Long Date")

MyStr = Format(MyTime, "h:m:s") ' Returns "17:4:23".
MyStr = Format(MyTime, "hh:mm:ss AMPM") ' Returns "05:04:23 PM".
MyStr = Format(MyDate, "dddd, mmm d yyyy") ' Returns "Wednesday,
' Jan 27 1993".
' If format is not supplied, a string is returned.
MyStr = Format(23) ' Returns "23".

' User-defined formats.
MyStr = Format(5459.4, "##,##0.00") ' Returns "5,459.40".
MyStr = Format(334.9, "###0.00") ' Returns "334.90".
MyStr = Format(5, "0.00%") ' Returns "500.00%".
MyStr = Format("HELLO", "<") ' Returns "hello".
MyStr = Format("This is it", ">") ' Returns "THIS IS IT".

Muito obrigado!

No meu caso que é combobox, eu aplico qual dessas variáveis e em que momento?

Segue o cósigo do meu botão "Salvar":

Private Sub CmdSalvar_Click()

Planilha1.Range("F3").Select

Do

If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select

End If

Loop Until IsEmpty(ActiveCell) = True

EnumeraLista

ActiveCell.Offset(0, 1).Value = TxtCalendário.Text
ActiveCell.Offset(0, 2).Value = CmbHorário.Text
ActiveCell.Offset(0, 3).Value = CmbRecorrência.Text
ActiveCell.Offset(0, 4).Value = TxtResponsável.Text
ActiveCell.Offset(0, 5).Value = TxtCompromisso.Text

LimparCampos

ActiveWorkbook.Save

MsgBox "Compromisso marcado com sucesso", vbInformation, "Agenda"

End Sub

Use o código

format(variável, "hh:mm:ss")

Sendo variável, o valor que voce pretende formatar

se isso te ajudou, clique no joinha ao lado de "citar"