Pb en algo

Bonjour,
voila j'ai un petit soucie en algo j'éssaie d'aprende tout seule mais c'est assez dificile je trouve enfin bon j'ai trouver des énoncer sur internet elace sans corriger je vérifie en codant en vb par la suite mais la je bloque complet j'éssai

de simuler la multiplication par l'addition
en analysant par exemple nb1*nb2 comme nb2+nb2 ......nb2
nb1 fois

voila mon travail

var
nb2: entier
nb1 : entier
i : entier
resultat : entier
début

afficher ("saisir nb1")
saisire (nb1)
afficher ("saisir nb2")
saisire (nb2)

resultat<-0
i <-0

tant que i <= nb1 faire
resultat<-resultat+nb2

i <- i+1

ftant

afficher ("résultat : ", résultat)

fin

le code vb que j'ai réaliser (il ne marche pas je ne sait pas si cela et du a mon algo???)

Option Explicit

Sub main()

Dim nb2 As Integer
Dim nb1 As Integer
Dim i As Integer
Dim resultat As Integer

nb1 = InputBox("saisir nb1")
nb2 = InputBox("saisir nb2")

resultat = 0
i = 0

While i = nb1
resultat = resultat + nb2

i = i + 1

Wend

MsgBox ("résultat : " & resultat)

End Sub