eigenen wert verdoppeln und darstellen?

ich habe eine textbox. in diese wird ein wert eingegeben. in manchen fällen muss der betrag aber verdoppelt werden. nun habe ich ein commandbutton daneben geschaffen. mein wunschdenken wäre wie folgt:

beim bedienen des knopfes soll der wert der in der box steht (wird mittels unterprozedur schon als eine zahl definiert) vom system mit zwei multipliziert werden und anschließend wieder in der selben textbox ausgegeben werden.

mein versuch:

Private Sub CommandButton5_Click()
TextBox1 = Unterprozedur2 * 2
End Sub