Extract text from <example>TEXT</example>

[FreshCoder]

Hi!
I need help with some code. Im making a medical record and need to extract what`s between <example>TEXT</example> and put it in text boxes.

Option Compare Database
Option Explicit

Private Sub txtJournal_AfterUpdate()

Dim i As String
Dim txtJournal As String

For i = 1 To Len(txtJournal)

If Mid(txtJournal, i, 1) = "<diagnose>" Then
ElseIf Mid(txtJournal, i, 1) = "</diagnose>" Then

Next i

If Mid(txtJournal, i, 1) = "<resept>" Then
ElseIf Mid(txtJournal, i, 1) = "</resept>" Then


End If
End Sub

[Bob Fitz]

Cross Posted: https://www.access-programmers.co.uk...d.php?t=301570
Please read: https://www.excelguru.ca/content.php?184

[isladogs]

This thread now has 2 solutions at https://www.access-programmers.co.uk...d.php?t=301570