TextBox1.Text = Right$(CString(Now), 3)
Ricorda di usare [RISOLTO] se sei venuto a capo del problema...grazie....