Dim w1l As Double = 90
        Dim w1h As Double = 125
        Dim w2l As Double = -10
        Dim w2h As Double = 10
 
        For w1 As Double = w1l To w1h
            Dim w2 As Double = w2l + (w1 - w1l) * (w2h - w2l) / (w1h - w1l)
            Debug.WriteLine("w1=" & w1.ToString() & " w2=" & w2.ToString())
        Next

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov