ตัวแปร array ให้วนลูปโชว์ค่าจากการกดเพื่อบันทึกค่าลงใน textbox

Dim a As String
  
 Public Function ClearALL(ByRef MyForm As VB.Form)
    For i = 0 To MyForm.Controls.Count - 1
        If UCase(TypeName(MyForm.Controls(i))) = UCase("TextBox") Then
            MyForm.Controls(i).Text = ""
        End If
    Next
End Function
 
 Private Sub Command1_Click()
    a = Text1.Text
    Call ClearALL(Me)        
End Sub

Private Sub Command2_Click()
MsgBox " " & a
End Sub