Помогите изменить часть кода - VB

Формулировка задачи:

код отправляет данные Ф.И.О. и дату рожд. в DLL, обратно возвращает хеш
ФИО и д.р. берутся из четырех ячеек, а надо чтобы ФИО брал из одной ячейки (без пробелов, отдельно фамилию, имя и отчество) + д.р. из одной... и отправлял в DLL
и еще в ячейке ФИО есть строчные буквы, напр.: "Иванов Иван Иванович", нужно чтобы в DLL в верхнем регистре - "ИВАНОВ ИВАН ИВАНОВИЧ" + дата рождения "01.01.2000"
часть кода:

...
...
...
 hochu()
 ric  
   fb = 
   i = r
            LastName = Cells(i, fb)
            FirstName = Cells(i, fb + )
            MiddleName = Cells(i, fb + )
            dt = Cells(i, fb + )
            DateBorn = Left(dt, ) + (dt, , ) +  + Right(dt, )
            data = LastName + FirstName + MiddleName + DateBorn
            ric = 
             CalcRic(ric, data, ) 
                Cells(i, fb - ) = ric

...
...
...
 

Решение задачи: «Помогите изменить часть кода»

textual
                            Листинг программы 
                        
                            dt = Cells(i, fb)
data = Replace(dt, <font color="teal">" "</font>, <font color="teal">""</font>) + DateBorn