userform à textbox variable

Private msg(0 To 7) As String 'déclare la tableau de variables msg (MESsages) (nombe de messasges à adapter à ton cas)
Private nm As Integer 'déclare la variable nm (Numéro du Message)

Private Sub UserForm_Initialize()
msg(0) = "texte 1" 'à adapter à ton cas
msg(1) = "texte 2" 'à adapter à ton cas
msg(2) = "texte 3" 'à adapter à ton cas
msg(3) = "texte 4" 'à adapter à ton cas
msg(4) = "texte 5" 'à adapter à ton cas
msg(5) = "texte 6" 'à adapter à ton cas
msg(6) = "texte 7" 'à adapter à ton cas
msg(7) = "texte 8" 'à adapter à ton cas
nm = 0 'définit le numéro du message
Me.TextBox1.Value = msg(nm) 'atttibut le texte du message à la TextBox1
End Sub


Private Sub CommandButton1_Click() 'bouton "Suivant >"
nm = nm + 1 'incrémente le numéro de message
If nm > 7 Then nm = 7 'si le numéro dépasse 7 alors le numéro vaut 7
Me.TextBox1 = msg(nm) 'atttibut le texte du message à la TextBox1
End Sub


Private Sub CommandButton2_Click() 'bouton "< Précédent"
nm = nm - 1 'décrémente le numéro de message
If nm < 0 Then nm = 0 'si le numéro est négatif alors le numéro vaut 0
Me.TextBox1 = msg(nm) 'atttibut le texte du message à la TextBox1
End Sub