Userform e TextBox

Por vezes, podemos ter a necessidade e utilizar, num Userform, um TextBox com comprimento fixo e com Multiline e WordWrap. Vejamos o exemplo:

Quando se inicia a escrita, a altura do TextBox aumenta automaticamente até à altura previamente definida:

Grava para a célula A1:

Para invocar o Userform que contem o TextBox, criamos um CommandButton na grelha:

O Código para o Comando:

Private Sub CommandButton1_Click()
    FrmTeste.Show
End Sub

Os códigos em VBA:

Private Sub TextBox1_Change()

    TextBox1.Width = 150
    TextBox1.MultiLine = True
    TextBox1.WordWrap = True
    TextBox1.AutoSize = False

    With Me.TextBox1
        .Height = 80
    End With

End Sub

Private Sub CommandButton1_Click()
    Range("A1") = TextBox1.Value
End Sub