Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating Call GetData1() 'Closeなし Call Dummy() Call GetData2() 'Closeあり End Sub Private Sub Dummy() Dim dmAry() As String Dim i As Integer For i = 0 To 9999 '←適当な値 ReDim Preserve dmAry(i) dmAry(i) = i.ToString() Next End Sub