La struttura è grossomodo così

For each ctrl as Control in Me.controls
MyArray1(X) = ctrl.Name
MyArray2(X) = ctrl.Text
end if

Naturalmente ti dovrai preoccupare di scorrere il valore di X in modo da non sovrascrivere quello precedente.