substring help

[Maha]

Hi,

I need to extract substring from a cell.For example if i have a value show below in one cell:

Sub=Message from HeepLine & body=Msg ID: 4523_2
pls check job seek.c failed
This email message is confidential

I need to extract the Msg Id and body of the msg(here, pls check job seek.c failed). how to do this using macro?
Pls help me out..

 

[texasalynn]

try this

Sub FindText()
MsgID = InStr(Cells(18, 1), ":")
Msgd = Len(Cells(18, 1)) - InStr(Cells(18, 1), "This")
Msgdtl = Mid(Cells(18, 1), MsgID + 1, Msgd)
MsgBox "Msg: " & Msgdtl
End Sub

 

[Legacy 68668]

try
=GetIDBody(A1)

Function GetIDBody(ByVal txt As Strig) As String
Dim x
x = Split(txt, vbLf)
GetIDBody = Mid$(x(0), InStrRev(x(0), " ")) & " " & x(1)
End Function

 

[Maha]

Thanks texasalynn...it's working pretty....gr8 help....