Определить, площадь какой фигуры больше - ошибка при выводе результата - VB

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

Доброго времени суток! Стояла задача: Заданы радиус круга и сторона квадрата. Определить, площадь какой фигуры больше. Я составил блок-схему и такой код:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim R, A, KR, KV  As Single
R = Val(InputBox("Введите R"))
A = Val(InputBox("Введите A"))
KR = 3.14 * (R) ^ 2
KV = A ^ 2
If KR > KV Then
MsgBox Str(KR) + " > " + Str(KV), 64 + 1, "Площадь круга больше"
End If
If KR < KV Then
MsgBox Str(KV) + " > " + Str(KR), 64 + 1, "Площадь квадрата больше"
Else
MsgBox Str(KR) + " = " + Str(KV), 64 + 1, "Площади фигур равны"
End If
End Sub

В итоге, если площадь круга получается больше, то он выдаёт ещё и "площади фигур равны". Почему - не понятно. Попробовал переделать код - заработало, но теперь не пойму, как составить по нему блок-схему. С тремя блоками условия? Переделанный код:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim R, A, KR, KV  As Single
R = Val(InputBox("Введите R"))
A = Val(InputBox("Введите A"))
KR = 3.14 * (R) ^ 2
KV = A ^ 2
If KR > KV Then
MsgBox Str(KR) + ">" + Str(KV), 64 + 1, "Площадь круга больше"
End If
If KR < KV Then
MsgBox Str(KV) + ">" + Str(KR), 64 + 1, "Площадь квадрата больше"
End If
If KR = KV Then
MsgBox Str(KR) + "=" + Str(KV), 64 + 1, "Площади фигур равны"
End If
End Sub

Решение задачи: «Определить, площадь какой фигуры больше - ошибка при выводе результата»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim R!, A!, KR!, KV!, st$
R = Val(InputBox("Введите R", , 10))
A = Val(InputBox("Введите A", , 15))
pi = Atn(1) * 4
KR = pi * R ^ 2
KV = A ^ 2
If KR > KV Then
    st = "Площадь круга больше"
ElseIf KR < KV Then
    st = "Площадь квадрата больше"
Else
    st = "Площади фигур равны"
End If
Call MsgBox("Площадь круга = " & KR & vbCrLf & "Площадь квадрата = " & KV & vbCrLf & st, 64 + 1)
End Sub