Найти площадь прямоугольника - VB

Формулировка задачи:

Изначально было задание:даны 4 стороны, найти являются ли эти стороны прямоугольником. Программный код который я составил:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim Г*, b, c, d  As Integer
Г* = Val(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г§Г*Г*Г·ГҐГ*ГЁГҐ Г*"))
b = Val(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г§Г*Г*Г·ГҐГ*ГЁГҐ b"))
c = Val(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г§Г*Г*Г·ГҐГ*ГЁГҐ c"))
d = Val(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г§Г*Г*Г·ГҐГ*ГЁГҐ d"))
If (a = b And c = d) Or (a = c And b = d) Or (a = d And c = b) Then
MsgBox "ГЏГ°ГЁГ*Г*Г¤Г«ГҐГ¦Г*ГІ"
Else
MsgBox "ГЌГҐ ГЇГ°ГЁГ*Г*Г¤Г«ГҐГ¦Г*ГІ"
End If
End Sub

Теперь надо переделать данный код, чтобы найти площадь прямоугольника.Помогите пожалуйста

а все не нада сам додумался)

Решение задачи: «Найти площадь прямоугольника»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim a!, b!, c!, d!
a = InputBox("a")
b = InputBox("b")
c = InputBox("c")
d = InputBox("d")
 
If a = c And b = d Then
 MsgBox "ГќГІГ® ГЇГ°ГїГ¬Г®ГіГЈГ®Г«ГјГ*ГЁГЄ"
 MsgBox "S = " & a * b
Else
 MsgBox "ГќГІГ® Г*ГҐ ГЇГ°ГїГ¬Г®ГіГЈГ®Г«ГјГ*ГЁГЄ!"
End If