???
... it's alive! ... it's alive! ...
Sub allee_kiha()
    Dim i&, RndNbr$, strtxt$
    
    strtxt = String(44, ".")
    Debug.Print strtxt
    Randomize
    For i = 1 To 6
        RndNbr = Format(Round((Int(90 - 9 + 1) * Rnd + 9) / (Int(9 - 2 + 1) * Rnd + 2), 2), "#,##0.00")
        RSet strtxt = RndNbr
        Debug.Print strtxt
    Next
End Sub