GUI program to find minimum of 3 numbers

Private Sub Command1_Click()
Dim num1 As Integer
Dim num2 As Integer
Dim num3 As Integer
num1 = Val(Text1.Text)
num2 = Val(Text2.Text)
num3 = Val(Text3.Text)
Call minimum(num1, num2, num3)
End Sub
Private Sub minimum(n1 As Integer, n2 As Integer, n3 As Integer)
Dim min As Integer
min = n1
If n2 < min Then
min = n2
End If
If n3 < min Then
min = n3
End If
Text4.Text = Str(min)
End Sub

Private Sub Command2_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
End Sub

Private Sub Command3_Click()
End
End Sub