Option og text felt

Hej Alle.

Jeg er ved at lave et program som ved tryk på 2 optionbottoms skal erstatte nogle værdier i et text felt, men det skal være på et bestemt sted i text feltet (der står nemlig allerede noget i tekst feltet i forvejen), jeg har skrevet noget kode som PT bare indsætter det der skal ind sættes, men som koden er nu sletter den først tekst feltet og det skal den ikke, det skal være sådan, at hvis man feks. trykker på option1 skal den stætte en værdi på linie 37 til "1", og hvis man herefter trykker på option2 skal den ændre væriden som option1 har lavet i linie 37 til "0" samtidig med at den sætter væriden (for option2) til "1" i linie 40 og vise versa, samtidig skal den ved tryk på option2 overføre værdien fra text1 til linie 38 i text2.

Lidt svært at forklare, men jeg håber i kan forstå det, jeg har indsæt lidt kode for at gøre det lidt mere forståeligt, men som koden er nu virker det ikke rigtigt, håber det er nogen som kan modificere / omskrive koden så den viker.

På forhånd tak.

Christian_H

Private Sub Option1_Click()
If Option1 = True Then
Text1.Enabled = False
End If
If Option1 = True Then
Text2 = "1" 'Den forud definerede værdi der bliver indsat i text2 hvis option1 = true
Else
Text2 = "0" 'Den forud definerede værdi der bliver indsat i text2 hvis option1 = false (viker ikke)
End If
End Sub

Private Sub Option2_Click()
If Option2 = True Then
Text1.Enabled = True
End If
If Option2 = True Then
Text2 = Text1.Text 'text1 værdi som bliver indsat hvis option2 er = true ( men her skal der samtidig også indsættes en værdig på en anden linie som har værdien "1"
else
Text2 = "0" 'Den forud definerede værdi der bliver indsat i text2 hvis option2 = false (viker ikke)
End If
End Sub