range("a1").value = vba.cdate(TextBox1.text)

range("a1").value = vba.cdate(TextBox1.text)

Olá Fernando eu gostaria que a da ficasse desta forma na célula (30/07 - 14:44h), entendeu? na minha textbox ela parece assim ( 30/07/2014 14:44:22)!

Então:

with Range("a1")
      .Value = VBA.CDate(textbox1.text)
      .NumberFormat = "dd/mm hh:mm""h"""
end with

Contribuindo:

Range("a1").Value = Format(TextBox1.Text, "dd/mm" & "-" & "HH:MM")

[]s

Dessa forma vc não terá uma data + hora na célula, e sim um texto que parece uma data mais hora, o que quero dizer com isso:
se vc quiser usar a função ano(), mês(), algum agrupamento em tabela dinâmica, qquer coisa, olhando pra esta célula de "data", você não vai conseguir.

Mas se é isso que vc quer, ou seja, um texto que parece data mas não é reconhecido como data pelo Excel, então blz,, a solução aceita é a melhor.

Caso você queira reconsiderar o uso posterior dessa célula, e de repente fazer um cálculo com aquela hora, ou identificar o dia da semana, sei lá, qquer coisa, aí vc terá que usar a solução que eu apresentei.

FF