Gravar Log de erros em VB.Net

  Public Sub GravaLog(ByVal Arquivo As String, ByVal Texto As String)

    Try
      Dim Escritor As System.IO.FileStream
      Dim EscritorTexto As System.IO.StreamWriter
      Dim Pasta As System.IO.DirectoryInfo
     Pasta = System.IO.Directory.GetParent(Arquivo)
      If Not Directory.Exists(Pasta.ToString) Then
        System.IO.Directory.CreateDirectory(Pasta.ToString)
      End If
      If System.IO.File.Exists(Arquivo) Then
        Escritor = New System.IO.FileStream(Arquivo, IO.FileMode.Append, IO.FileAccess.Write)
      Else
        Escritor = New System.IO.FileStream(Arquivo, IO.FileMode.CreateNew, IO.FileAccess.Write)
      End If

      EscritorTexto = New System.IO.StreamWriter(Escritor)

      EscritorTexto.WriteLine(System.DateTime.Now.ToString("dd/MM/yyyy HH:mm:ss") & "-" & Texto)
      EscritorTexto.Close()
    Catch ex As Exception
      MessageBox.Show("Método GravaArq - " & ex.Message, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
  End Sub