Private Sub UserForm_Activate()
 MultiPage1.Value = 4
 ' oder welche Nummer (bei 0 beginnend) Du auch immer
 ' von Deinen Registern nach vorne holen willst.
End Sub