Private Sub Command1_Click() Dim x As String, y As String x = Right("abcdef", 2) y = Mid("dcbaef", 3, 3) If x > y Then Print x + y Else Print y + x End Sub