初期値がゼロだから、

Sub resetMax()
 max__ = -1.79769313486231E308
End Sub

とかが必要かもしれない