Visual Basic para Aplicaciones - ayuda con texto automatico en textbox

¿alguien me puede decir como hacer para q al pulsar una tecla en un textbox lo primero q se escriba sea el usuario de la aplicacion y la fecha actual?
de momento lo del usuario y la fecha lo tengo (application.username y date) el problema esta en q si lo hago con el evento keypress del textbox lo repite en cada pulsacion de tecla, y lo q quiero es q se haga solo una vez (al comienzo de la escritura). He probado tambien con "change" pero tapoco funciona, muchas gracias de antemano a todos.

al final lo he podido solucionar, esto es lo q se me ha ocurrido, por si le vale a alguien.
si alguien se le ocurre otra cosa y lo quiere poner se lo agradezco.

(declaro la variable fuera del form para q no se reinicie cada vez q se produzca el evento keypress )
en vez de "date" he preferido "now" por q tambien me interesa la hora en el q se introdujeron los nuevos datos

Dim contador As Double

Private Sub tbmercancia_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
tecla = Val(KeyAscii)
contador = contador + tecla
If contador = tecla Then
tbmercancia.Text = Now & " /" & Application.UserName & " :"
End If
End Sub
/ / \ \
/ _|_ \ .______o(")o______.
" ' "
// | \\
// . \\
// | \\
// . \\
// | \\
Txelín 2005.

[email protected]