beregn..men forkert?

Private Sub cmdBeregn_Click()
Cykel = txtCykel.Text
Løb = txtLøb.Text
Svøm = txtSvøm.Text
picVis.Print Format(Val(Cykel * 200) + Val(Løb * 475) + Val(Svøm * 275) / 7000, \"#,###.###\")

dette er en command som skal regne 3 felter om til noget.
felt 1 cykel*200.....vi siger 3  = 600
felt 2 løb *475.....2  = 950
felt 3 svøm*275......1  =275

i alt 1825 til sidst ( / 7000) dividere jeg med 7000. På min lommeregner bliver det 0,261... ( og det er rigtigt)men i vb6 bliver det 1.550....
hvorfor det?? mangler jeg noget??