FullnameをURLにして
            Fullname = Fl.FullName
を
            Dim text As String = My.Computer.FileSystem.ReadAllText(Fl.FullName)
            Dim iti As Integer = text.LastIndexOf("URL=") + 4
            Dim Length As Integer = text.IndexOf(vbCrLf, iti) - iti
            If Math.Max(0, Length) = 0 Then
                Length = text.Length - iti
            End If
            URL = text.Substring(iti, Length)
にして
Process.Start(Fullname)をForm1.WebBrowser1.Url = New Uri(URL)
にしたらできました。読みにくくてすいません。