Sub tester()
    Dim oFSO As Object
    Dim oFS As Object, sText As String, StrTxtT As String, StrTxtD As String, StrTxtN As String, URL As String, Rng As Range
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set oFS = oFSO.OpenTextFile("C:\Users\Username\Desktop\ProStrakan, Inc. et al v. Actavis Laboratories UT, Inc. et al.html")
    Dim strSource As String
    Dim strDest As String
    Do Until oFS.AtEndOfStream
        sText = oFS.ReadAll()
do some split and replace to finally get StrTxt