A combobox containing times returns a fraction (eg. I select "8:00" and it shows "0.3333")

[bioplz]

This is a good representation of my problem.
The value is pulled from a range of cells with a Custom format for h:mm. I am using this method, instead of a string, because I then want to subtract time out from time in.
This is mainly just a visual appearance issue, because I can multiply the value by 24 to get the actual time. It just looks terrible in the UserForm.

 

[6StringJazzer]

So the problem is the "Time In" combo box? How are you populating that combobox? Can you please show any code you have related to these two comboboxes?

 

[bioplz]

So the problem is the "Time In" combo box? How are you populating that combobox? Can you please show any code you have related to these two comboboxes?

Dim iCnt As Integer, totalTime As Integer
iCnt = fn_LastRow(trainSheet) + 1

If cbxTimeIn.Value <> "" And cbxTimeOut.Value <> "" Then
        totalTime = DateDiff("n", cbxTimeIn, cbxTimeOut)
    End If
   
    With trainSheet
        .Cells(iCnt, 1) = iCnt - 1 'txtID
        .Cells(iCnt, 2) = txtDate
        .Cells(iCnt, 3) = CStr(txtTrain)
        .Cells(iCnt, 4) = txtIssues
        .Cells(iCnt, 5) = cbxTimeIn
        .Cells(iCnt, 6) = cbxTimeOut
        .Cells(iCnt, 7) = (totalTime / 60) & " hrs"
        .Cells(iCnt, 8) = cbxParty
        .Cells(iCnt, 9) = cbxImpact
        .Cells(iCnt, 10) = cbxIsClosed
    End With

This is the code that I am using, and it currently works.

Also, I created a list in another worksheet and linked the list within the ComboBox's RowSource property.