[Resolvido]InputBox em caixa de texto

Como fazer par esta expressão que me resulta o horário ser colocada automaticamente numa caixa de texto de um form.

InputBox ("Entre com o horário: ") & Time()

VC deve primeiramente verificar a finalidade. Qual eh seu objetivo?

Estou montando um livro ponto e quero incluir esta funcionalidade nos horários de entrada e saída. Quando a box aparece com o horário eu dou ok e o horário cola automaticamente na caixa de texto do horário de entrada ou saída respectivamente.

Bom ano
InputBox("Entre com o horário:", , Time())

oi , obrigado, mas eu erro de sintaxe. Eu quero fazer como menu pop up de Excel, que o valor sai na celula.

Oi, estou conseguindo colocar os horários com botões de opção, agora gostaria de fazer um comando que aceite ou não a informação, tipo uma msgbox, que aceite ou não aquele horário. Obrigado.
Com este comando:

Private Sub Moldura39_Click()
Dim Resposta As Object
Resposta = Msgbox("Aceitar", vbYesNo, "Horário")
If Resposta = yes Then
End
Else
End If
End Sub

Estou conseguindo gerar a msgbox, mas ainda da erro, onde será que esta o erro?

Resolvido.