Public array

' ------------------ Form1 ------------------
Option Explicit

Private nyArray() As String

Private Sub Command1_Click()
  MsgBox nyArray(1)
End Sub

Private Sub Form_Load()
  nyArray = Split("Test 1, Test 2, Test 3", ",")
End Sub
' ------------------ Form1 ------------------

Hvad fanden laver du oppe så sent? Jeg checker det lige :).

eller:

' ------------------ Form1 ------------------
Option Explicit

Private Sub Command1_Click()
  MsgBox nyArray(1)
End Sub

Private Sub Form_Load()
  nyArray = Split("Test 1, Test 2, Test 3", ",")
End Sub
' ------------------ Form1 ------------------

' ----------------- Module1 -----------------
Option Explicit

Public nyArray() As String
' ----------------- Module1 -----------------

hæ hæ.. hvad med dig selv.. :D

Spiller poker, mens damen sover bag mig ;)

MsgBox arrHands(1) giver mig "subscript out of range"... weird. Har 25 elementer i mit array.

MsgBox arrHands(1) virker fint under form_load

' ------------------ Form1 ------------------
Option Explicit

Private nyArray() As String

Private Sub Command1_Click()
  MsgBox nyArray(1)
End Sub

Private Sub Form_Load()
  nyArray = Split("Test 1, Test 2, Test 3", ",")
End Sub
' ------------------ Form1 ------------------

Det kan jeg nemt få til at virke, bare ikke i min egen form... :'/

ahh jeg er en idiot. Havde dobblet-dim'et mit array.

Champen får point!