Sub Преобразовать_время()
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "E").End(xlUp).Row
        dx = .Range("E1:E" & LastRow)
        dx(1, 1) = "Трафик"
        For n = 2 To UBound(dx)
            Tm = dx(n, 1)
            Tm = Replace(Tm, "мин", ":")
            Tm = Replace(Tm, ",", "")
            Tm = Replace(Tm, " ", "")
            Tm = Replace(Tm, "сек", "")
            If InStr(1, Tm, ":", vbTextCompare) = 0 Then Tm = "00:" & Tm
            If Right(Tm, 1) = ":" Then Tm = Tm & "00"
            dx(n, 1) = CDate(Tm)

        Next
        .Range("M1:M" & UBound(dx)).Select
        Selection.NumberFormat = "[h]:mm:ss;@"
        .Range("M1").Select
        .Range("M1").Resize(UBound(dx), 1) = dx
    End With

End Sub

DECLARE    @Test VARBINARY(Max)=0x075BCD15
SELECT    CAST(@Test AS INT) AsINT
результат 123456789