var MAX AND MIN

If varMin = 0 Then
varMin = varSum
ElseIf varSum < varMin Then
varMin = varSum
End If

If varSum > varMax Then
varMax = varSum
End If

lblMax.Caption = varMax
lblMin.Caption = varMin