Requiere escribir código fuente más complejo en vb
No lo compliques demasiado, un botón y una declaración son suficientes.
Subcomando privado1_click()
MsgBox IIf(text1.Text = 1, "1 para ture", "") amp; ture", "") y IIf(text3.Text = 3, "3 for ture", "")
End Sub