If Cells(Range("Tab_B").Row + 1 + I, "X") <> "" Then .Controls("TextBox" & I * 11 + 4) = Int(CDec(24 * Cells(Range("Tab_B").Row + 1 + I, "X"))) & ":" & Format(Minute(Cells(Range("Tab_B").Row + 1 + I, "X")), "00") & ":" & Format(Second(Cells(Range("Tab_B").Row + 1 + I, "X")), "00")