Varför fungerar inte den här koden när den är i en Funktion?

Public Function RandomWord()

Randomize
slumpresultat = Int((UBound(Ordvektor) * Rnd))
RandomWord = Ordvektor(slumpresultat)

End Function

Jag provade med Form1.Ordvektor men det fungerade inte heller.
Kan jag inte nå vektorn på nåt vis?

Alltså, vad jag försöker göra är att nå en vektor som finns i form1 från en funktion. Det verkar inte gå alls. Någon som vet hur man gör?

Lägg in en Bas Modul i ditt program.
Lägg din Public Function där så kan du nå den från alla Formar du har i ditt projekt.

Edit: Ahhhh snabbt och fel ,glöm svaret

Enl denna princip skulle jag lösa det.
<code>
Option Explicit
Dim Ordvektor(1000) As String 'antal ord du har i vektorn
Private Sub Form_Load()
Randomize
End Sub
Private Sub Command1_Click()
MsgBox RandomWord
' Alternativ Text1.Text = RandomWord
End Sub
Private Function RandomWord() As String
Dim slump As Long
slump = Int((UBound(Ordvektor) * Rnd))
RandomWord = Ordvektor(slump)
End Function
</code>