Invio email

Buongiorno a tutti, ho un piccolo problema che non riesco a risolvere, quindi vi chiedo un piccolo aiuto. Devo inviare un'email tramite access che si interfaccia con outlook utilizzando codice vba e query, fino a qui tutto Ok
vi posto il codice per capire meglio

Dim strInput As String
Dim Oggetto As String
Dim Messaggio As String
Dim rs As DAO.Recordset
Dim strData As String


Set objOutlook = CreateObject("Outlook.application")
Set ObjEMail = objOutlook.CreateItem(olMailItem)

Set rs = CurrentDb.OpenRecordset("Qry_EmailsuTab")
rs.MoveFirst

Do Until rs.EOF
   strData = strData & "  Nr. Fascicolo  " & rs.Fields(0).Value & "  con denominazione  " & rs.Fields(1).Value & "   - "
   rs.MoveNext
Loop

With ObjEMail
    .To = Me.CBAVVISO
    .Subject = "oggetto"
    .HTMLBody = "I fascicoli per cui si richiede l'istituzione sono stati creati.<BR>"  & strData
    .OriginatorDeliveryReportRequested = True
    .ReadReceiptRequested = True
    .Display
    '.Send
    '.Save
End With

Il mio problema è dividere la stringa strData e inserirla in outlook con il testo a capo non appena il codice incontra " - " cosi se ho 10 fascicoli nel messaggio di testo li mette in colonna

Esempio attualmente in outlook il messaggio esce in questo modo:
I fascicoli per cui si richiede l'istituzione sono stati creati.
Nr. Fascicolo 1 con denominazione Ciccio Pasticcio - Nr. Fascicolo 2 con denominazione Remo la barca - ecc..

io vorrei che nel messaggio mi inserisce così:

I fascicoli per cui si richiede l'istituzione sono stati creati.
Nr. Fascicolo 1 con denominazione Ciccio Pasticcio
Nr. Fascicolo 2 con denominazione Remo la barca
ecc..

Grazie in anticipo per il vostro aiuto