Word 2000/Tabeller/VBA

Jeg er ved at lave en tabel der skal bruges som regneark.
Den indeholder OptionButton´s i cellerne og hvis "knappen" er slået til, skal cellen (A2)indeholde en værdi (f.eks. 30.000) ellers skal værdien være 1.
Jeg har prøvet og prøvet, men er kørt fast!
Er der nogen der kan vise mig hvordan VB-koden skal være???
Her er den kode som programmet godkender, men celleværdien bliver ikke den ønskede - Så hvor er fejlen???
Private Sub OptionButtonD2_Click()
If Value = True Then
Contents.Tables(1).Columns(D).Cells(2).Range.Text = "25000"
Else: Contents.Tables(1).Columns(D).Cells(2).Range.Text = "1"
End If
End Sub
Mvh
Jan Andersen