Private Sub MultiPage1_Change()
If Me.MultiPage1.Value = 1 Then MsgBox "Huhu!"
End Sub
Beachte: Die Indexierung beginnt bei Null!
Grüße Boris
Private Sub MultiPage1_Click(ByVal Index As Long)
Select Case Index
Case 0
Debug.Print Index
Case 1
Debug.Print Index
Case Else
End Sub