Sub GetData(Number As Long, Prices() As Single, OtherDataPoints() As Single)