Если вы действительно хотите, чтобы одна строка создавала их все, создайте объект для хранения этих данных, например,
...
person.Firstname
person.MiddleName
person.LastName
...
Затем заполните их в конструкторе, например,
Dim person As New Person("first","middle","last")
Похоже на более чистый вариант, если все ваши объекты связаны с определенной идеей / сущностью.