Option Explicit
Private Sub Command1_Click()
Dim c1 As Integer, c2 As Integer, c3 As Integer
c1 = InputBox("c1 = ", , 23)
c2 = InputBox("c1 = ", , 92)
c3 = InputBox("c1 = ", , 4)
If c1 = c2 * c3 Then Print " c1 - yes"
If c2 = c1 * c3 Then Print " c2 - da"
If c3 = c2 * c1 Then Print " c3 - si"
End Sub

Option Explicit
Private Sub Command1_Click()
Dim c1 As Integer, c2 As Integer, c3 As Integer
c1 = InputBox("c1 = ", , 23)
c2 = InputBox("c2 = ", , 92)
c3 = InputBox("c3 = ", , 4)

If c1 = c2 * c3 Then
    Print " c1 - Является"
ElseIf c2 = c1 * c3 Then
    Print " c2 - Является"
ElseIf c3 = c2 * c1 Then
    Print " c3 - Является"
Else
    Print "Ни одно не является"
End If

End Sub