Try this,.

.Cells(trow, cfnd + 1) = Format(CDate(Me.uf9a_tb_cstart.Value), "h:mm")