Saludos, si tambien puedes usar eso en caso de ser arreglos. Bueno aqui te mando la corrección funcionando.
Código:
Dim b As Integer
Dim c As Integer
Dim a() As Long
b = TextBox1.Text
c = TextBox1.Text
ReDim a(b)
For i As Integer = 0 To b - 1
a(i) = InputBox("Ingrese Datos")
TextBox2.Text = TextBox2.Text + " " + a(i).ToString
If a(i) < b Then
b = a(i)
End If
If a(i) > c Then
c = a(i)
End If
Next
MsgBox("el mayor es " & c)
MsgBox("el menor es " & b)
Analizalo. Espero que sea de ayuda
ATTE RealTMegalix