Private Sub CommandButton1_Click()

Dim strVar1 As String, strVar2 As String

strVar1 = "": strVar2 = ""

strVar1 =TextBox1.Text

strVar2 = TextBox2.Text

MsgBox "Ваша фамилия" & strVar1 & _

". Вам сейчас " & strVar2

End Sub

 

В процедуре оператор strVar1 =TextBox1.Text заносит в переменную strVar1 текст из первого текстового поля. Оператор strVar2 =TextBox2.Text заносит в переменную strVar2 текст из второго текстового поля.

 

Напишите для события Click второго элемента "Кнопка" (CommandButton2) код процедуры:

 

Private Sub CommandButton2_Click()

End

End Sub