Non si capisce bene perché vuoi usare un tipo definito dall'utente (Type...End Type), comunque puoi definire uno dei campi del tipo myType come array e nella funzione UnisciCampi eseguire un ciclo For...Next dal limite inferiore al limite superiore dell'array.