Если в Поле1 находится текст, разделенный на абзацы символом новой строки (vbNewLine), то это делается так.

Private Sub Поле1_Click()
    Me.Поле2 = Replace(Me.Поле1, vbNewLine, "</p><p>")
End Sub

P.S. Поле 2 будет сохранять информацию с html тегами.