Entrada e saída simples em modo gráfico com VBA

No Visual Basic for Applications (VBA) do Microsoft Excel é possível fazer o mesmo que fizemos no VB, incluindo o preenchimento de uma célula da planilha com o mesmo texto digitado no formulário simples contendo os controles painel, rótulo, caixa de texto e botão.  Clicar um botão é o evento que orienta esta aplicação.  O texto digitado nas caixas de texto é mostrado em um rótulo e em uma caixa de texto desabilitada, após o pressionamento dos botões “Entrar” e “Concatenar”.  Os outros dois botões têm ações óbvias.

Veja a seguir ilustrações da aplicação em tempo de execução e seu respectivo código.

Private Sub Workbook_Open()

    frmIO.Show

End Sub

Private Sub cmdConcatenar_Click()

    lblSaida.Caption = txtNome.Text & " " & txtSobrenome.Text

    txtSaida.Text = txtNome.Text & " " & txtSobrenome.Text

    Me.Caption = txtNome.Text & " " & txtSobrenome.Text

    Range("A1").Value = txtNome.Text & " " & txtSobrenome.Text

End Sub

Private Sub cmdEntrar_Click()

    lblSaida.Caption = txtNome.Text & txtSobrenome.Text

    txtSaida.Text = txtNome.Text & txtSobrenome.Text

    Range("A1").Value = txtNome.Text & txtSobrenome.Text

End Sub

Private Sub cmdLimpar_Click()

    txtNome.Value = ""

    txtSobrenome.Value = ""

    lblSaida.Caption = ""

    txtSaida.Value = ""

    Me.Caption = "Entrada e Saída"

    txtNome.SetFocus

    Range("A1").Value = ""

End Sub

Private Sub cmdSair_Click()

    End

End Sub