Как узнать, является ли данный четырехугольник параллелограммом - VB

Private Sub Command1_Click()
'Sub main()
Dim x(1 To 4) As Double
Dim x(1 To 4) As Double
Dim i As Long
For i = 1 To 4
  x(i) = InputBox("Введите X" & i)
  y(i) = InputBox("Введите Y" & i)
Next
If x(1) - x(2) = x(4) - x(3) And y(1) - y(2) = y(4) - y(3) Then
  MsgBox "Это параллелограм"
Else
  MsgBox "Это не параллелограм"
End If
End Sub