Sending an automated email, including a possible error message (1 Viewer)

Private Sub SendMessage()
   Dim objOutlook As Outlook.Application
   Dim objOutlookMsg As Outlook.MailItem
   Dim objOutlookRecip As Outlook.Recipient
   'Dim objOutlookAttach As Outlook.Attachment
   
   Set objOutlook = CreateObject("Outlook.Application")
   Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
   
   With objOutlookMsg
     
     Set objOutlookRecip = .Recipients.Add("*removed for privacy*")
      objOutlookRecip.Type = olTo
On Error GoTo ErrMsg
     Set objOutlookRecip = .Recipients.Add(Forms!Form1.Text83.Value)
      objOutlookRecip.Type = olTo
      Exit Sub
ErrMsg:
      MsgBox "Please enter your e-mail into into the Form1 textbox labeled 'User E-Mail'"
      .Subject = "MISSING Routing Information!"
      .Body = "Please follow the link below to the F_Routing Form to fill in the email address for each Mfg_Cd that is listed:" & vbCrLf & vbCrLf & PathToFrontEnd
      .Importance = olImportanceHigh
      For Each objOutlookRecip In .Recipients
         objOutlookRecip.Resolve
         If Not objOutlookRecip.Resolve Then
         objOutlookMsg.Display
      End If
      Next
      .Send
   End With
   Set objOutlookMsg = Nothing
   Set objOutlook = Nothing
End Sub

If Len(Forms!Form1.Text83 & vbNullString) = 0 Then
  MsgBox "You need to fill out the address"
Else
  'your code here to send the email
End If