Ver checkbox y optionbutton cuando están en true al mover spinbutton

Tengo una serie deCheckboxes y optionbutton y quisiera si e posible que cuando desplace el spinbutton se me vean m, arcados conjuntamente con lo que veoel el listbox, a continuación los codicos:

Private Sub CommandButton1_Click()

freigewördene Maschinekapazität

Sheets("Data").Range("X" & Bos_Satir).Value = TextBox25.Value
Sheets("Data").Range("Y" & Bos_Satir).Value = TextBox27.Value
If OptionButton18.Value = True Then
Sheets("Data").Range("O" & Bos_Satir).Value = Val(TextBox2) * Val(TextBox3) * ComboBox3.Value
ElseIf OptionButton19.Value = True Then
Sheets("Data").Range("P" & Bos_Satir).Value = Val(TextBox2) * Val(TextBox3) * ComboBox3.Value
ElseIf OptionButton20.Value = True Then
Sheets("Data").Range("Q" & Bos_Satir).Value = Val(TextBox2) * Val(TextBox3) * ComboBox3.Value
ElseIf OptionButton21.Value = True Then
Sheets("Data").Range("R" & Bos_Satir).Value = Val(TextBox2) * Val(TextBox3) * ComboBox3.Value
ElseIf OptionButton22.Value = True Then
Sheets("Data").Range("S" & Bos_Satir).Value = Val(TextBox2) * Val(TextBox3) * ComboBox3.Value
End If
If OptionButton1.Value = True Then
Sheets("Data").Range("G" & Bos_Satir).Value = 5000 '5000 m Kabel wären per maschinen je schick geschniten
ElseIf OptionButton2.Value = True Then
Sheets("Data").Range("G" & Bos_Satir).Value = 10000 '10000 m Kabel wären per 2 maschinen je Schicht
ElseIf OptionButton3.Value = True Then
Sheets("Data").Range("G" & Bos_Satir).Value = 0
End If
If CheckBox1.Value = True Then
Sheets("Data").Range("G" & Bos_Satir).Value = Sheets("Data").Range("G" & Bos_Satir).Value
ElseIf CheckBox1.Value = "" Then
End If
If CheckBox2.Value = True Then
Sheets("Data").Range("G" & Bos_Satir).Value = 2 * Sheets("Data").Range("G" & Bos_Satir).Value
End If
If CheckBox3.Value = True Then
Sheets("Data").Range("G" & Bos_Satir).Value = 3 * Sheets("Data").Range("G" & Bos_Satir).Value
End If
aa = TextBox11.Text
bb = TextBox12.Text
dd = Sheets("Data").Range("G" & Bos_Satir).Value
cc = CDate(bb) - CDate(aa)
If CheckBox4.Value = True Then
Sheets("Data").Range("G" & Bos_Satir).Value = dd * cc
End If
If OptionButton4.Value = True Then
Sheets("Data").Range("H" & Bos_Satir).Value = 360
ElseIf OptionButton5.Value = True Then
Sheets("Data").Range("H" & Bos_Satir).Value = 720
ElseIf OptionButton6.Value = True Then
Sheets("Data").Range("H" & Bos_Satir).Value = 1080
End If
aa = TextBox11.Text
bb = TextBox12.Text
dd1 = Sheets("Data").Range("H" & Bos_Satir).Value
cc = CDate(bb) - CDate(aa)
If CheckBox8.Value = True Then
Sheets("Data").Range("H" & Bos_Satir).Value = dd1 * cc
End If
If CheckBox5.Value = True Then
Sheets("Data").Range("H" & Bos_Satir).Value = Sheets("Data").Range("H" & Bos_Satir).Value
ElseIf CheckBox6.Value = "" Then
End If
If CheckBox6.Value = True Then
Sheets("Data").Range("H" & Bos_Satir).Value = 2 * Sheets("Data").Range("H" & Bos_Satir).Value
End If
If CheckBox7.Value = True Then
Sheets("Data").Range("H" & Bos_Satir).Value = 3 * Sheets("Data").Range("H" & Bos_Satir).Value
End If
If OptionButton7.Value = True Then
Sheets("Data").Range("I" & Bos_Satir).Value = 540
ElseIf OptionButton8.Value = True Then
Sheets("Data").Range("I" & Bos_Satir).Value = 1080
ElseIf OptionButton9.Value = True Then
Sheets("Data").Range("I" & Bos_Satir).Value = 1620
End If
aa = TextBox11.Value
bb = TextBox12.Value
dd2 = Sheets("Data").Range("I" & Bos_Satir).Value
cc = CDate(bb) - CDate(aa)
If CheckBox12.Value = True Then
Sheets("Data").Range("I" & Bos_Satir).Value = dd2 * cc
End If
If CheckBox9.Value = True Then
Sheets("Data").Range("I" & Bos_Satir).Value = Sheets("Data").Range("I" & Bos_Satir).Value
ElseIf CheckBox9.Value = "" Then
End If
If CheckBox10.Value = True Then
Sheets("Data").Range("I" & Bos_Satir).Value = 2 * Sheets("Data").Range("I" & Bos_Satir).Value
End If
If CheckBox11.Value = True Then
Sheets("Data").Range("I" & Bos_Satir).Value = 3 * Sheets("Data").Range("I" & Bos_Satir).Value
End If
If OptionButton10.Value = True Then
Sheets("Data").Range("J" & Bos_Satir).Value = 900
ElseIf OptionButton11.Value = True Then
Sheets("Data").Range("J" & Bos_Satir).Value = 1800
ElseIf OptionButton12.Value = True Then
Sheets("Data").Range("J" & Bos_Satir).Value = 2700
End If
bb = TextBox12.Value
dd3 = Sheets("Data").Range("J" & Bos_Satir).Value
cc = CDate(bb) - CDate(aa)
If CheckBox17.Value = True Then
Sheets("Data").Range("J" & Bos_Satir).Value = dd3 * cc
End If
If CheckBox14.Value = True Then
Sheets("Data").Range("J" & Bos_Satir).Value = Sheets("Data").Range("J" & Bos_Satir).Value
ElseIf CheckBox14.Value = "" Then
End If
If CheckBox15.Value = True Then
Sheets("Data").Range("J" & Bos_Satir).Value = 2 * Sheets("Data").Range("J" & Bos_Satir).Value
End If
If CheckBox16.Value = True Then
Sheets("Data").Range("J" & Bos_Satir).Value = 3 * Sheets("Data").Range("J" & Bos_Satir).Value
End If

If OptionButton13.Value = True Then
Sheets("Data").Range("K" & Bos_Satir).Value = 360
ElseIf OptionButton14.Value = True Then
Sheets("Data").Range("K" & Bos_Satir).Value = 720
ElseIf OptionButton15.Value = True Then
Sheets("Data").Range("K" & Bos_Satir).Value = 1080
End If
bb = TextBox12.Value
dd4 = Sheets("Data").Range("K" & Bos_Satir).Value
cc = CDate(bb) - CDate(aa)
If CheckBox21.Value = True Then
Sheets("Data").Range("K" & Bos_Satir).Value = dd4 * cc
End If
End If

End Sub