'arnelgp
Public m_text As String
Public m_array As Variant
Public Function getInfo(ByVal strText As String, ByVal strInfoToGet As String) As String
'
'strText on your same is the text in Range("a1")
'strInfoToget is the text to extract.
'
'example:
'
'getInfo(A1,"program")
'
'm_text = ""
Dim i As Integer, s As String
Dim ix As Integer
If m_text <> strText Then
m_text = strText
m_array = Split(m_text, vbLf)
End If
For i = 0 To UBound(m_array)
s = Trim$(m_array(i))
ix = InStr(1, s, strInfoToGet & ":", vbTextCompare)
If ix <> 0 Then
getInfo = Trim$(Mid$(s, ix + Len(strInfoToGet & ":")))
Exit For
End If
Next
End Function