[RESOLVED] How to Find Highest number of all?

[nusaki]

Replace and with andalso, proboly lil better but still getting mistakes.
Is here way to code something like this:

Max=Maximum of {n2,n3,n4,n5,n6,n7,n8,n9}

?

my code so far:

If n2 > n3 AndAlso n2 > n4 AndAlso n2 > n5 AndAlso n2 > n6 AndAlso n2 > n7 AndAlso n2 > n8 AndAlso n2 > n9 Then
            TextBox11.Text = n2
        End If

        If n3 > n2 AndAlso n3 > n4 AndAlso n3 > n5 AndAlso n3 > n6 AndAlso n3 > n7 AndAlso n3 > n8 AndAlso n3 > n9 Then
            TextBox11.Text = n3
        End If

        If n4 > n2 AndAlso n4 > n3 AndAlso n4 > n5 AndAlso n4 > n6 AndAlso n4 > n7 AndAlso n4 > n8 AndAlso n4 > n9 Then
            TextBox11.Text = n4
        End If

        If n5 > n2 AndAlso n5 > n3 AndAlso n5 > n4 AndAlso n5 > n6 AndAlso n5 > n7 AndAlso n5 > n8 AndAlso n5 > n9 Then
            TextBox11.Text = n5
        End If

        If n6 > n2 AndAlso n6 > n3 AndAlso n6 > n4 AndAlso n6 > n5 AndAlso n6 > n7 AndAlso n6 > n8 AndAlso n6 > n9 Then
            TextBox11.Text = n6
        End If

        If n7 > n2 AndAlso n7 > n3 AndAlso n7 > n4 AndAlso n7 > n5 AndAlso n7 > n6 AndAlso n7 > n8 AndAlso n7 > n9 Then
            TextBox11.Text = n7
        End If

        If n8 > n2 AndAlso n8 > n3 AndAlso n8 > n4 AndAlso n8 > n5 AndAlso n8 > n6 AndAlso n8 > n7 AndAlso n8 > n9 Then
            TextBox11.Text = n8
        End If

        If n9 > n2 AndAlso n9 > n3 AndAlso n9 > n4 AndAlso n9 > n5 AndAlso n9 > n6 AndAlso n9 > n7 AndAlso n9 > n8 Then
            TextBox11.Text = n9
        End If

what if i had 100 numbers?