Try the code below. It will generate a 'subscript out of range' error. The array hasn't been dimensioned. How can I check if an array hasn't been dimensioned?
Code:Option Explicit Private mstrArray() As String Private Sub Command1_Click() If UBound(mstrArray) > 0 Then MsgBox "here" End If End Sub




Reply With Quote