Dim sArray() As String
 
Private Sub Command1_Click()
Randomize Timer
ReDim sArray(1 To Int((Rnd * 50) + 1)) As String
End Sub
 
Private Sub Command2_Click()
MsgBox ArrCount(sArray)
End Sub
 
Private Sub Form_Load()
Command1.Caption = "Zufallsarray"
Command2.Caption = "Zählen"
End Sub
 
Public Function ArrCount(theArray() As String) As Long
ArrCount = UBound(theArray) - LBound(theArray) + 1
End Function