Here your code quickly quit IE repeatedly, for ever looping.
The the_start line should be:
the_start:
with a colon at the end.
This worked for me, but you'll need a reference to MS Forms, which if there's a userform in your project you probably already have, but if you haven't the easiest way to do this is to add a userform to the project in the vbe and remove it straightaway!
Private Sub CommandButton1_Click()
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Top = 0
objIE.Left = 0
objIE.Width = 800
objIE.Height = 600
objIE.Visible = True
'On Error Resume Next
objIE.navigate ("https://bethematch.org/tcdirectory/index/35/")
Do
DoEvents
Loop Until objIE.readystate = 4
zzz = objIE.document.body.innerHTML
Set myData = New DataObject
myData.SetText zzz
myData.PutInClipboard
objIE.Quit
End Sub
I didn't set up a userform with a textbox, I put the data into the clipboard, so when the macro's finished you need to paste it into say, notepad.