Quote Originally Posted by MartinLiss
Here's a better way.

Code:
    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