Visual Basic - ESCRIBIR EN ARCHIVO LOG

Hola de nuevo, aún así no me escribe debajo de la linea, me lo escribe todo separado pero en la misma linea y al terminar la línea se va abajo pero no me salta.

Gracias.

Prueba esto

Public Function GrabarEventos(ByVal sMensaje As String) As Boolean
On Error Resume Next
Dim strArchivo As String

strArchivo = App.Path & "\Mislogs.log"

Open sPath For Append As #1
Print #1, Now() & " - " & sMensaje
Close #1

If Err.Number <> 0 Then
GrabarEventos = False
Err.Description
Err.Clear
Exit Function
End If

GrabarEventos = True

End Function

Perdon, la variable sPath es en realidad strArchivo