🚀 go-pugleaf

Hoe voeg ik in 3 rijen textboxen 3 verschillende woorden in?
Dus 1 woord per rij.

Ik plaats voor de eerste rij 5 textvakken (geen controlarry), 5 voor de
tweede en 5 voor de derde rij.
Daaronder plaats ik een textbox waar ik het woord invoer. Dat woord plaats
ik dan in de eerst rij textvakken, 1 letter per vak.
Voor de eerste rij geen probleem, hij doet het perfect. Maar bij het tweede
woord, dat in de tweede rij moet komen, wordt het eerste overschreven
en in de eerste rij geplaatst en dat mag niet.
De code die ik uit mijn mouw geschud heb staat hieronder.

mvg
Marc

Private Sub cmdEvalueer_Click()
'Het eerste woord ingeven.

strwoord(1) = txtWoordIngeven
txtWoordIngeven.SetFocus

If Len(strwoord(1)) < 5 Then
MsgBox "U moet een woord ingeven van 5 letters"
End If

txtPoginga = Left(strwoord(1), 1)
Text1 = Mid$(strwoord(1), 2, 1)
Text3 = Mid$(strwoord(1), 3, 1)
Text4 = Mid$(strwoord(1), 4, 1)
Text5 = Mid$(strwoord(1), 5, 1)
strwoord(1) = ""
txtWoordIngeven = ""
txtWoordIngeven.SetFocus
Om de een of andere reden stopt hij hier en gaat hij terug naar boven.

'Het tweede woord ingeven.

strwoord(2) = txtWoordIngeven
Text2 = Left(strwoord(2), 1)
Text6 = Mid$(strwoord(2), 1, 1)
Text8 = Mid$(strwoord(2), 2, 1)
Text9 = Mid$(strwoord(2), 3, 1)
Text10 = Mid$(strwoord(2), 5, 1)
txtWoordIngeven = ""
txtWoordIngeven.SetFocus


End Sub