Определить, пройдет ли кирпич через отверстие

Option Explicit
 
Private Sub Комманда1_Click()
Dim a, b, c, d
Dim x1, x2, x3, x4
Dim S
Dim J
a = CDbl(Replace(Текст1.Text, ".", ",")) 'кирпич
b = CDbl(Replace(Текст2.Text, ".", ",")) 'кирпич
c = CDbl(Replace(Текст3.Text, ".", ",")) 'дыра
d = CDbl(Replace(Текст4.Text, ".", ",")) 'дыра
For J = 0 To d Step 0.01
S = (c - ((b - J) ^ 2) ^ 0.5) ^ 2 + (d - J) ^ 2
If S > a ^ 2 Then
MsgBox "Пролезет!"
Exit Sub
End If
Next J
MsgBox "Ні лізе!"
End Sub

Private Sub Command1_Click()
    Dim x, y, z, a, b, min1, min2
    x = CDbl(Replace(Text1.Text, ".", ",")) 'кирпич
    y = CDbl(Replace(Text2.Text, ".", ",")) 'кирпич
    z = CDbl(Replace(Text3.Text, ".", ",")) 'кирпич
    a = CDbl(Replace(Text4.Text, ".", ",")) 'дыра
    b = CDbl(Replace(Text4.Text, ".", ",")) 'дыра
    min1 = x
    min2 = y
    If (z < x) Then
        min1 = z
        If (x < y) Then min2 = x
    End If
    If ((min1 < a And min2 < b) Or _
        (min1 < b And min2 < a) Or _
        (a * b > min1 ^ 2 + min1 * min2 + Min ^ 2)) Then
            MsgBox "Ïðîëåçåò!"
            Exit Sub
    End If
    MsgBox "ͳ ë³çå!"
End Sub

Private Sub Command1_Click()
    Dim x, y, z, a, b, min1, min2
    x = CDbl(Replace(Text1.Text, ".", ",")) 'êèðïè÷
    y = CDbl(Replace(Text2.Text, ".", ",")) 'êèðïè÷
    z = CDbl(Replace(Text3.Text, ".", ",")) 'êèðïè÷
    a = CDbl(Replace(Text4.Text, ".", ",")) 'äûðà
    b = CDbl(Replace(Text5.Text, ".", ",")) 'äûðà
    min1 = x
    min2 = y
    If (z < x) Then
        min1 = z
        If (x < y) Then min2 = x
    Else
        If (z < y) Then min2 = z
    End If
    If ((min1 < a And min2 < b) Or _
        (min1 < b And min2 < a) Or _
        (a * b > (min1 / Sqr(2)) ^ 2 + min1 * min2 + (min2 / Sqr(2)) ^ 2)) Then
            MsgBox "Ïðîëåçåò!"
    Else
        MsgBox "ͳ ë³çå!"
    End If
    MsgBox CStr(a * b) + "  " + CStr((min1 / Sqr(2)) ^ 2 + min1 * min2 + (min2 / Sqr(2)) ^ 2)
End Sub

    If min1 < a Or min1 < b Then MsgBox "Да куды ж вы пхнёте!!!"