I guess i should have indicated something about the PriceToCell
function.

it looks like this:

Public Sub PriceToCell(ByVal cellpos As Integer, ByVal mycontrol As
Object, ByVal wType As Integer, ByVal Fintype As Integer)
Dim Price As Integer
WindowPrice = Price(wType, finType)
ActiveCell.Offset(0, cellpos).Value = mycontrol.Name & ":" &
mycontrol.Value & ":" & Price
End Sub