podrias ir de letra en letra, algo asi:
dim i as long
for i=1 to len(palabra)
convertir_a_binario mid(palabra,i,1)
next i
osea, vas de uno en uno y usando mid para obtener una sola letra.. igualmente creo que es mejor idea usar asc() para pasar la letra a ascii y de ahi algun algoritmo para pasarlo a binario, en lugar de reemplazar