编辑代码

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