In that case something like
Private Sub Submit_Click()
'No-option email sending
Dim OL As Object
Dim EmailItem As Object
Dim strPath As String
Dim strName As String
Dim oDoc As Document
Application.ScreenUpdating = True
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(0)
strPath = Environ("TEMP") & Chr(92)
If TextBox1.Text = "" Then GoTo lbl_Exit
strName = TextBox1.Text
If Not Right(strName, 5) = ".docx" Then strName = strName & ".docx"
Set oDoc = ActiveDocument
oDoc.SaveAs2 FileName:=strPath & strName, AddToRecentFiles:=False
With EmailItem
.Subject = TextBox1 & "OVERVIEW OF SUPPORT FORM SUBMITTED"
.Body = "Find attached Overview of support form." & vbCrLf & _
"" & vbCrLf & _
""
.to = "l2@bradfordcollege.ac.uk"
.Importance = 0
.Attachments.Add oDoc.FullName
.send
End With
oDoc.Close 0
Kill strPath & strName
Application.ScreenUpdating = True
lbl_Exit:
Unload Me
Set oDoc = Nothing
Set OL = Nothing
Set EmailItem = Nothing
Exit Sub
End Sub