If vb6 lookup the split function, l use vb5 therefore

Dim sString as String
Dim iPos, iLen as Integer
'
sString = "www.vb-world.net" ' or where ever ya get it
iLen = Len(sString)
'
iPos = Mid(sString,"net",1)
txtbox = Instr(sString,iPos,iLen)

Don't know if syntax is correct, don't have vb in front of me, but anyway will give you the general idea

Hope it Helps