ник: час
Private Sub Command1_Click()
' Считаем число и имена таблиц
Dim stroka As String ' строчка таблиц
Dim retval ' возвращаемое значение
stroka = "Табла1, Табла2, Табла3, Табла4, Табла5"
retval = Split(stroka, ",")
MsgBox "колич. таблиц = " _
& UBound(retval)
Dim F As Long
For F = 0 To UBound(retval)
Debug.Print retval(F)
Next F
End Sub