求VB代码 编制求4个数中的最大数中的最大数的过程,并用该过程求任意输入的4个数的最大数

text框 5个 前4个输入任意数字 第5个显示 最大数
command 按钮一个

Private Sub Command1_Click()
Dim a, b, c, d, e
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text

If a >= b And a >= c And a >= d Then
e = a
End If

If b >= a And b >= c And b >= d Then
e = b
End If

If c >= a And c >= b And c >= d Then
e = c
End If

If d >= a And d >= b And d >= c Then
e = d
End If

Text5.Text = e

End Sub

用循环可能会简便写.
Private Sub Command1_Click()
Dim a(1 To 4)
For i = 1 To 4
a(i) = Val(InputBox("请输入第" & i & "个数"))
Next i
Dim max
For i = 1 To 4
If a(i) > max Then
max = a(i)
End If
Next i
Print max
End Sub