Hulp gevraagd met random getal kiezen

[Inguhh]

Ik heb de volgende code:

Dim Antwoord As Integer
Dim Gok As Integer

Private Sub Form_Load()
Call NieuwGetal
End Sub

Private Sub NieuwGetal()
Antwoord = Int((100 * Rnd()) + 1)
End Sub

Private Sub CommandButton1_Click()
Gok = TextBox1

If Gok = Antwoord Then
TextBox2 = "Heel goed! Je hebt het getal geraden."
Call NieuwGetal

ElseIf Gok > Antwoord Then
TextBox2 = "Helaas! Probeer een lager getal te typen."

ElseIf Gok < Antwoord Then
TextBox2 = "Helaas! Probeer een hoger getal te typen."
End If

End Sub

Maar het random getal is iedere keer 0

Wat doe ik fout??

Alvast bedankt!:thumb:

 

[Roncancio]

De aanroeping van het antwoord is niet goed. De userform is al geladen en dus wordt NieuwGetal niet aangeroepen.

Vervang:

Private Sub Form_Load()
Call NieuwGetal
End Sub

door..

Private Sub UserForm_Initialize()
Call NieuwGetal

End Sub

Met vriendelijke groet,


Roncancio

 

[Inguhh]

Dankje!

Deze vraag is opgelost:thumb: