Private Sub SSTab1_Click(PreviousTab As Integer)
     Select Case SSTAB1.Index
     Case 0
          Der erste reiter wurde gedrückt
     Case 1
           Der zweite Reiter.......
     End Select
End Sub

Private Sub Command1_Click()
dim rc as vbMessageBoxResult
        rc=MsgBox 8"Hallo ", vbYesNoCancel, "Test"9
        ' Hier will ich jetzt z.B. den schalter Yes Programmieren
       if rc = VBYes then BlaBlaBla
End Sub