Se vi può interessare ho risolto in questo modo:

nomi dei form:
visita1
visita2
.....
visitan

Dim frm As Form
Dim selForm As String
Set frm = Forms.Add("visita" & index)
load
Set frm = Nothing