outlook email to textbox variable

Below is my coding and attachment of what I want looks like.

Private Sub TextBox1_Change()
    Dim strName As String
    Subject = UserForm1.TextBox1 <- I dont think this is correct
End Sub

Private Sub TextBox2_Change()
    CC = UserForm1.TextBox2 <- I dont think this is correct
End Sub

Private Sub TextBox3_Change()
    Message = UserForm1.TextBox3 <- I dont think this is correct
End Sub
Private Sub CommandButton1_Click()
    Unload Me
End Sub

Sub CommandButton2_Click()
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
        Set objMail = myOlApp.CreateItem(olMailItem)
            With objMail
                .Subject = Subject <- how do i link this to "I dont think this is correct"
                .To = Environ("username")
                .body = Message <- how do i link this to "I dont think this is correct"
                .CC = CC <- how do i link this to "I dont think this is correct"
                .Send
End With
'below i dont understand why it's there and nothing or if needed
Set myOlApp = Nothing
Set myNamespace = Nothing
Set myRecipient = Nothing
Set objMail = Nothing
End Sub

Why don't you remove the textbox change events and pull the textbox values into the email fields directly? I also commented out the Send command and added Display, so you can see that it works.

Private Sub CommandButton1_Click()
    Unload Me
End Sub
Sub CommandButton2_Click()

Dim myOlApp As Object
Dim objMail As Object
        
Set myOlApp = CreateObject("Outlook.Application")
Set objMail = myOlApp.CreateItem(olMailItem)
With objMail
    .Subject = TextBox1
    .To = Environ("username")
    .body = TextBox3
    .CC = TextBox2
    '.Send
    .Display
End With

'below i dont understand why it's there and nothing or if needed
Set myOlApp = Nothing
Set myNamespace = Nothing
Set myRecipient = Nothing
Set objMail = Nothing

End Sub

No, that's not what I am saying. I was suggesting to use the Display command when testing the code. Once you are happy with how it looks, then you can replace it with Send.

I gave you a way to do that in my first post.

 .Subject = TextBox1
 .body = TextBox3
 .CC = TextBox2