Tagged word / phrase count VB help please

Hi all,

I am using the following VB code (which i didn't write) to count occurrence of individual words contained in all the rows in column A to help look for trends.

Sub HTH() 
    Dim vArray As Variant 
    Dim lLoop As Long 
    Dim rCell As Range 
     
    With CreateObject("Scripting.Dictionary") 
        For Each rCell In Range("A1", Cells(Rows.Count, "A").End(xlUp)) 
            vArray = Split(rCell.Value, " ") 
            For lLoop = LBound(vArray) To UBound(vArray) 
                If Not .exists(vArray(lLoop)) Then 
                    .Add vArray(lLoop), 1 
                Else 
                    .Item(vArray(lLoop)) = .Item(vArray(lLoop)) + 1 
                End If 
            Next lLoop 
        Next rCell 
        Range("B1").Resize(.Count).Value = Application.Transpose(.keys) 
        Range("C1").Resize(.Count).Value = Application.Transpose(.items) 
    End With 
End Sub 

This works well but in reality i need it to be altered (very much like the tags on this forum) so that it will look at all rows in column A and recognise that tags are separated by # so for example a row could contain:

#housing #VOIDS #rent arrears #new builds

The code would need to return everything to the right of the # as a separate tag until it found another tag or until the cell was empty.

This would be an example of a few rows of data in column A:


ROW 1 #housing #VOIDS #rent arrears #new builds
ROW 2 #housing #arrears #tenant support
ROW 3 #assisted living #payments
ROW 4 #insurance
ROW 5 #supported housing #tenant support

For this data the VB should return the following

housing 2
VOIDS 1
rent arrears 1
new builds 1
arrears 1
assisted living 1
payments 1
insurance 1
supported housing 1
tenant support 2

Any help would be very much appreciated.

Thank you in advance.