Comando Format - Código VBA

[Luciano Franklin dos Santo]

Prezados, tenho um código VBA, cuja função será pesquisar resultados como: nome do aluno, data de entrada, matricula, laboratório, horário de entrada e horário de saída, ocorre que ao receber o resultado da pesquisa, o dado recolhido da hora de entrada ou horário de saída, está saindo número inteiro (Formatei para inserir o número inteiro na célula Ex: 1700 e sair 17:00 com a seguinte formatação:  0/:00) no código abaixo coloquei a informação no Format, só que ele está exibindo somente inteiro quando tem um só resultato, quando existe mais de um resultado ele aparece corretamente.  Peço ajuda se possível de vocês.  

Private Sub SpinButton1_Change()
Dim Linha As Long
Dim TotalOcorrencias As Long
    TotalOcorrencias = SpinButton1.Max + 1
    Linha = MatrizResultados(SpinButton1.Value)
    Label_Registros_Contador.Caption = SpinButton1.Value + 1 & " de " & TotalOcorrencias
    
    BoxNomedoAluno.Text = Plan1.Cells(Linha, 2).Value
    BoxMatricula.Text = Plan1.Cells(Linha, 3).Value
    BoxData.Text = Format(Plan1.Cells(Linha, 4).Value, "dd/mm/yyyy")
    BoxLaboratorio.Text = Plan1.Cells(Linha, 5).Value
    BoxHorarioEntrada.Text = Format(Plan1.Cells(Linha, 6).Value, "0\:00")
    BoxHorarioSaida.Text = Format(Plan1.Cells(Linha, 7).Value, "0\:00")
    BoxMotivo.Text = Plan1.Cells(Linha, 8).Value
 
End Sub

 

[Luciano Franklin]

Mesmo não obtendo resposta agradeço....Consegui arrumar, foi só colocar o a função format nos campos de ocorrências e depois no de pesquisa.