Private Sub CommandButton1_Click()
Dim A As Integer, B As Integer, c As Integer, d As Integer, x As Integer
A = Val(TextBox1.Text)
B = Val(TextBox2.Text)
c = Val(TextBox3.Text)
d = Val(TextBox4.Text)

x = Val(TextBox5.Text)

If x >= A And x <= B Then
    If x >= c And x <= B Then
        Ans = "Òî÷êà À ñ êîîðäèíàòîé {" & x & "} ïðèíàäëåæèò îòðåçêàì AB è CD ñ êîîðäèíàòàìè [" & A & ";" & B & "] è [" & c & ";" & d & "]"
    Else
        Ans = "Òî÷êà À ñ êîîðäèíàòîé {" & x & "} ïðèíàäëåæèò îòðåçêó AB ñ êîîðäèíàòàìè [" & A & ";" & B & "]"
    End If
Else
    If x >= c And x <= B Then
        Ans = "Òî÷êà À ñ êîîðäèíàòîé {" & x & "} ïðèíàäëåæèò îòðåçêó CD ñ êîîðäèíàòàìè [" & c & ";" & d & "]"
    Else
        Ans = "Òî÷êà À ñ êîîðäèíàòîé {" & x & "} íå ïðèíàäëåæèò îòðåçêàì AB è CD ñ êîîðäèíàòàìè [" & A & ";" & B & "] è [" & c & ";" & d & "]"
    End If
End If

End Sub