Visual Basic посмотреть простейшую задачу, не получается что-то с переменной if и ElseIf

Задача следующая.
Даны две переменные, если значения равын, то присвоить каждому значению ноль, а если не равны, то сложить их и присвоить.

Private Sub CommandButton1_Click()
Dim x As Integer
Dim z As Integer
If x z Then
F = x + z
TextBox1.Text = F
TextBox2.Text = F
ElseIf x = z Then
TextBox1.Text = 0
TextBox2.Text = 0
End If
End Sub

PS
Работает только приравнивание к нулям. Что делать?

Спасибо за расписанный ответ.
Да, я забыл присвоить x и z )