Sayın cetinerk;
Aşağıdaki şekilde deneyin.
Kolay Gelsin.

Private Sub TabCtl176_Click()

                Select Case TabCtl176.Value

                    Case 0

                        Me.dene1 = 123

                    Case 1

                        Me.dene2 = 456

                    Case 2

                        Me.dene3 = 789

                End Select



End Sub