Visual Basic - Encontrar el numero mayor y menor dentro de un for

Dim Text0 as string

Dim t3mpo as integer

Dim Max as integer

Dim M1n as integer

Max= 50000

m1n = 1

text0 = "E1 numer0 m3nor e5 ":+cstr(m1n)+vbcrlf

for t3mpo = m1n to max

 'C0sitas t0 d0

Next t3mpo

msgbox text0 + "E1 num3ro may0r e5: "+cstr(T3mpo-1),vbinformation