Para este ejemplo necesitas: Un textbox (Text1) con la propiedad Multiline a True, una fuente (tipo de letra) más bien pequeña, y la propiedad ScrollBars = "2 - Vertical"; y por otro lado un botón, Command1, que es el que quieres registrar. Obviamente esto es igual para cualquier control y evento que quieras registrar, pero sólo lo he hecho con un botón y los eventos Click, MouseUp y MouseDown para que se entienda bien.
Private Sub Command1_Click()
Añadirevento "Click"
End Sub
Public Sub Añadirevento(evento As String)
Dim Fecha, Hora As String
Fecha = Date
Hora = Time
Text1.Text = Text1.Text & vbNewLine & Fecha & "--" & Hora & "--" & evento
End Sub
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Añadirevento "MouseDown"
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Añadirevento "MouseUp"
End Sub
Private Sub Text1_Change()
Text1.SelStart = Len(Text1.Text)
End Sub
Para guardar el texto del TextBox primero tienes que copiar y pegar ésto bien en el code del form o en un módulo...
Public Sub Createfile(Contenido As String, nombrearchivo As String)
nombrearchivo = App.Path & "\" & nombrearchivo
If Not Right(nombrearchivo, 3) = "txt" Then
nombrearchivo = nombrearchivo & ".txt"
End If
On Error Resume Next
Open nombrearchivo For Output As #1
Print #1, Contenido
Close #1
End Sub
... y luego escribir Createfile Text1,"hola.txt"
Saludos y espero que te sirva.