Bom dia Pessoal!

Possua uma planilha de controle de ponto e precisava retornar em uma label a soma das horas num detrminado período, chamado de "acumulado". Estou utlizando a função while para procurar a informação desejada e retornar em tela pra mim, porém mesmo formatando a minha célula ativa conforme precisa a informação não é levada de forma correta para a label conforme o exemplo abaixo:

Minha célula possui o valor de: "50:59" hs
meu label retorna: "02:59" hs

Do While ActiveCell.Value <> ""

If ActiveCell.Value = CDate(data) Then

ActiveCell.Offset(0, 2).Select
ROTBancoHoras.Caption = Format(ActiveCell.Value, "[h]:mm")
ActiveCell.Offset(0, 1).Select
lblHorasNegativas.Caption = Format(ActiveCell.Value, "[h]:mm")
ActiveCell.Offset(0, 1).Select
LblSaldoPeriodo.Caption = Format(ActiveCell.Value, "[h]:mm")
ActiveCell.Offset(0, 1).Select
lblAcumulado.Caption = Format(ActiveCell.Value, "[h]:mm")
ActiveCell.Offset(0, 2).Select
lblHEPrevista.Caption = Format(ActiveCell.Value, "[h]:mm")
ActiveCell.Offset(0, -1).Select
lblHEPG.Caption = Format(ActiveCell.Value, "[h]:mm")

End If

ActiveCell.Offset(1, 0).Select

TextBoxDataIni.SetFocus

Loop

Alguem saberia me dizer como corrigir esse situação?

Agradeço desdde já!