UDF

Option Explicit
Function VRM(r As Range) As String
Dim t() As String, xstr As String, i As Long
t = Split(Replace(r.Value, Chr(10), "-"), "-")
xstr = ""
For i = 0 To UBound(t)
    If Left(t(i), 3) = "VRM" Then xstr = xstr & Trim(t(i)) & ","
Next i
VRM = Left(xstr, Len(xstr) - 1)
End Function
=VRM(A2)