VB!4个文本框，一个命令按钮，输入4个数字，求最大值、最小值？

我的做法，仅供参考：
Public Class Form1
'VB!4个文本框，一个命令按钮，输入4个数字，求最大值、最小值？
Dim man As Integer
Dim min As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
man = TextBox1.Text
If man < TextBox2.Text Then man = TextBox2.Text
If man < TextBox3.Text Then man = TextBox3.Text
If man < TextBox4.Text Then man = TextBox4.Text
min = TextBox1.Text
If min > TextBox2.Text Then min = TextBox2.Text
If min > TextBox3.Text Then min = TextBox3.Text
If min > TextBox4.Text Then min = TextBox4.Text

MsgBox("最大数=" & man & " 最小数=" & min)

End Sub
End Class
...................................................................
黑龙江省巴彦县兴隆镇中心校 张志晨
..................................................................

P