Private Sub Command1_Click()
    Dim x As Integer, k As Integer
    x = Val(Text1(1).Text)
    'For k = 2 To ?
      'x = FindMin(Val(Text1(k).Text), ?)
    Next
    'lblResult.Caption = ?
End Sub
Public Function FindMin(x As Integer, y As Integer)
    'If x ? y Then
        FindMin = y
    Else
        FindMin = x
    End If
End Function