Загрузка данных

Private Sub CommandButton1_Click()
    z = Val(x) * Val(y)
End Sub

Private Sub CommandButton2_Click()
    z = Val(x) - Val(y)
End Sub

Private Sub CommandButton3_Click()
    MsgBox "Вы хорошо подумали", vbInformation, "Сообщение"
End Sub

Private Sub CommandButton4_Click()
    Me.BackColor = vbCyan
End Sub

Private Sub CommandButton5_Click()
    z = Sqr(Val(x))
End Sub

Private Sub CommandButton6_Click()
    z = Sin(Val(x))
End Sub