That date is 27 hours. You don't need to do anything special.
If you CDbl its value it will come to 1.125 (days)
To demonstrate:
Sub blah()
Set wsCurrent = ActiveSheet
UseRow = 4: intDay1Col = 6 'cell F4 contains: 1/01/1900 3:00:00 AM
dteCurrentShiftTotal1 = wsCurrent.Cells(UseRow, intDay1Col).Value
MsgBox dteCurrentShiftTotal1 'this may surprise you! Ignore it.
y = CDbl(dteCurrentShiftTotal1) '1.125 (days), x24 = 27 hours.
MsgBox y
Range("H4").Value = Empty
Range("H4").NumberFormat = "General"
Range("H4") = dteCurrentShiftTotal1 'look at H4 on the sheet
Range("H4").NumberFormat = "[hh]:mm" 'look again at H4 on the sheet
Z = Format(dteCurrentShiftTotal1, "[hh]:mm") 'doesn't work
MsgBox Z
z1 = Application.WorksheetFunction.Text(dteCurrentShiftTotal1, "[hh]:mm") 'using the sheetfunction does.
MsgBox z1
End Sub