[RESOLVED] Remove text from String

[FlamingFox]

Here's a better way.

    Dim MyString As String
    Dim lngIndex As Long
    MyString = "www.newfoundland.com/help/431234.html"
    
    lngIndex = InStrRev(MyString, "/")
    
    MyString = Left$(MyString, lngIndex - 1)

    MsgBox MyString

Thanks! It works perfectly

[MartinLiss]

So does TBeck's and if you change Text1.Text in his to MyString then his is arguably a better (more compact) solution.

[FlamingFox]

So does TBeck's and if you change Text1.Text in his to MyString then his is arguably a better (more compact) solution.

I'm Sorry I didn't see TBeck's post.

That works perfectly too!