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

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

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

Private Sub CommandButton3_Click()
    z.Value = Val(x.Value) / Val(y.Value)
End Sub

Private Sub CommandButton4_Click()
    z.Value = Sin(Val(x.Value))
End Sub

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

Private Sub CommandButton6_Click()
    Unload Me
End Sub

Private Sub CommandButton7_Click()
    z.Value = Sqr(Val(x.Value))
End Sub

Private Sub CommandButton8_Click()
    z.Value = Val(x.Value) + Val(y.Value)
End Sub