VB初心者質問スレPart2

Private Sub CommandButton2_Click()

On Error Goto Resume
　
　Dim S() As String

　'ReDim S(0)

　　MsgBox Sの要素数はUBound(S)

Exit

ERROR:
IF Err.Number=調べる
MsgBox "S定義されてない"
End Sub

こんなのは嫌かな？