Private Sub Command1_Click() a = Text1.Text b = Text2.Text If a > b Then Print a Else Print b End IfEnd Sub