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