Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a, x, c, b, y, f, d, g As Integer
        a = TextBox1.Text
        c = TextBox5.Text
        b = TextBox3.Text
        f = TextBox6.Text
        d = TextBox10.Text
        g = TextBox8.Text
        a = a / d
        b = b / g
        c = c / f
        If a = b And b = c And c = a Then
            MsgBox("Система имеет бесконечное к-во решений")
        Else
            MsgBox("Система НЕ имеет бесконечное к-во решений")
        End If
    End Sub
End Class