Hi b,
I'm a bit pressed for time (and may amend the code later) but something like this:
Sub Test()
Const strMain As String = "LOGFEE FOR 60735518LOGFEE FOR 60735548LOGFEE FOR 60735633"
MsgBox GetString("607", strMain)
End Sub
Function GetString(FindWhat, InCell)
Dim lCnt As Long, lCnt2 As Long
If InStr(1, InCell, FindWhat) = 0 Then
GetString = " "
Else
Cnt = 1
Do Until InStr(lCnt, InCell, FindWhat) = 0
lCnt2 = InStr(lCnt, InCell, FindWhat)
GetString = GetString & Mid(InCell, lCnt2, 8) & " "
lCnt = lCnt + lCnt2
Loop
End If
End Function