str = "This a test for InStr split lbound ubound mid"
Dim a
a = split(str," ")
'msgbox lbound(a)
'msgbox ubound(a)
For i = lbound(a) to Ubound(a)
msgbox(a(i))
next
'
rec = InStr(1,str,"recorded",1)
'msgbox rec
'Return for second space position
SpacePos = InStr(14,str," ",1)
msgbox SpacePos
'Return ur Transation Number
transno = mid(str,SpacePos,rec-SpacePos)
msgbox(transno)
Dim a
a = split(str," ")
'msgbox lbound(a)
'msgbox ubound(a)
For i = lbound(a) to Ubound(a)
msgbox(a(i))
next
'
rec = InStr(1,str,"recorded",1)
'msgbox rec
'Return for second space position
SpacePos = InStr(14,str," ",1)
msgbox SpacePos
'Return ur Transation Number
transno = mid(str,SpacePos,rec-SpacePos)
msgbox(transno)