Gracias David el grande.
No se pasar el nombre de fichero unico en la propiedad tag de un formulario, es decir donde meto esta propiedad en este codigo para cada formulario que vaya creando.
Código:
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim texto As String
texto = Chr(KeyAscii)
' si el texto llega al margen derecho del form, nueva línea
If Me.CurrentX >= Me.ScaleWidth - 90 Then Me.Print Chr(13)
Me.Print texto;
' cargamos lo tecleado en la variable "s"
s = s & texto
End Sub