VBA > Variable dans TexteBox

bonjour,
j'ai un code VB qui m'envoie un courriel de depuis mon premier adresse vers ma deuxième adresse,

ce que je veux c'est que j'ai mis ce code dans un userform , et je veux crée une variabl qui sera nommé en L'adresse Email pour que le code chang en depandant le userform, par exemple dans le batch , en fais

set /P QUESTION=Are you sure you want to continue[Y/N]?
if /I "%QUESTION%" EQU "Y" goto :NO
if /I "%QUESTION%" EQU "N" goto :YES

donc ici la variable %QUESTION% a été changé par l'utlisateur finle , de puis la Fenetre cmd

mais moi je veux ça en VBA

image de UserForm :




mon code :

Sub Email_From_Excel_Basic()
' TeachExcel.com

Dim emailApplication As Object
Dim emailItem As Object

Set emailApplication = CreateObject("Outlook.Application")
Set emailItem = emailApplication.CreateItem(0)

' Now we build the email.

emailItem.to = "TextBox2 la variable que je veux savoir"

emailItem.Subject = "TextBox5 la variable que je veux savoir"

emailItem.Body = "TextBox1 la variable que je veux savoir"

' Send the Email
' Use this OR .Display, but not both together.
emailItem.Send

' Display the Email so the user can change it as desired before sending it.
' Use this OR .Send, but not both together.
'emailItem.Display

Set emailItem = Nothing
Set emailApplication = Nothing

End Sub
Sub Email_From_Excel_More_Options()
' TeachExcel.com

Dim emailApplication As Object
Dim emailItem As Object

Set emailApplication = CreateObject("Outlook.Application")
Set emailItem = emailApplication.CreateItem(0)

' Now we build the email.

emailItem.to = "TextBox2 la variable que je veux savoir"

emailItem.CC = "TextBox3 la variable que je veux savoir"

emailItem.BCC = "TextBox4 la variable que je veux savoir"

emailItem.Subject = "TextBox5 la variable que je veux savoir"

emailItem.Body = "TextBox1 la variable que je veux savoir"

' Send the Email
emailItem.Send

Set emailItem = Nothing
Set emailApplication = Nothing

End Sub
Sub Email_From_Excel_Attachments()
' TeachExcel.com

Dim emailApplication As Object
Dim emailItem As Object

Set emailApplication = CreateObject("Outlook.Application")
Set emailItem = emailApplication.CreateItem(0)

' Now we build the email.

emailItem.to = "TextBox2 la variable que je veux savoir"

emailItem.Subject = "TextBox5 la variable que je veux savoir."

emailItem.Body = "TextBox1 la variable que je veux savoir"

' Attach current Workbook
emailItem.Attachments.Add ActiveWorkbook.FullName

' Attach any file from your computer.
'emailItem.Attachments.Add ("TextBox6 la variable que je veux savoir")

' Send the Email
emailItem.Send

Set emailItem = Nothing
Set emailApplication = Nothing

End Sub
Sub Send_Email_With_Code_Hints()
' This is NOT recommended because it requires the addition of
' an object library reference.
' If you send this workbook to someone who does not also have
' the correct reference added, it will cause an error.
'
' Steps to enable the required reference:
' Tools > References > Microsoft Outlook XX.0 Object Library (Make sure there is a check mark next to this.)
'
' TeachExcel.com

Dim emailApplication As Outlook.Application
Dim emailItem As Outlook.MailItem

Set emailApplication = New Outlook.Application
Set emailItem = emailApplication.CreateItem(olMailItem)
 
' Now we build the email.

emailItem.to = "TextBox2 la variable que je veux savoir"

emailItem.Subject = "TextBox5 la variable que je veux savoir"

emailItem.Body = "TextBox1 la variable que je veux savoir."

' Send the Email
emailItem.Send

Set emailItem = Nothing
Set emailApplication = Nothing

End Sub

merci a m'aider