Huy guys , i have a problem :( I can not solution it , try many times

Private Sub cmdexit_Click()
End
End Sub
Private Sub cmdgiam_Click()
Dim n As Integer
Dim so1 As Integer
Dim so2 As Integer
Dim so3 As Integer
so1 = Val(Text1.Text)
so2 = Val(Text2.Text)
so3 = Val(Text3.Text)
If so1 < so2 Then
n = so1
so1 = so2
so2 = n
End If
If so2 < so3 Then
n = so2
so2 = so3
so3 = n
End If
If so1 < so2 Then
n = so1
so1 = so2
so2 = n
End If
Text1 = so1
Text2 = so2
Text3 = so3
End Sub

Private Sub cmdtang_Click()
Dim n As Integer
Dim so1 As Integer
Dim so2 As Integer
Dim so3 As Integer
so1 = Val(Text1.Text)
so2 = Val(Text2.Text)
so3 = Val(Text3.Text)
If so1 > so2 Then
n = so1
so1 = so2
so2 = n
End If
If so2 > so3 Then
n = so2
so2 = so3
so3 = n
End If
If so1 > so2 Then
n = so1
so1 = so2
so2 = n
End If
Text1 = so1
Text2 = so2
Text3 = so3
End Sub

Attached Images