'
' SubStr$() - return a substring from a target string
'
'
' Author: Joe Strazzere
'
Function SubStr$(in$, position, length)
SubStr$ = Left$(Right$(in$,(len(in$) - (position - 1))),length)
EndFunction
Big$="1234567890"
a$=SubStr$(Big$,5,3)
msgbox("["+a$+"]")
