Если в Поле1 находится текст, разделенный на абзацы символом новой строки (vbNewLine), то это делается так.
Private Sub Поле1_Click() Me.Поле2 = Replace(Me.Поле1, vbNewLine, "</p><p>") End Sub P.S. Поле 2 будет сохранять информацию с html тегами.