programación vb, código morse

Puedes contar cuántos espacios hay y luego determinar el recuento de palabras según la cantidad de espacios + 1

UBound(Split(Text1.Text, " "))Texto , " "))

redim arr(len(P(j)))

atenuar i como entero

for i=1 to len(P(j))

arr(i)=mid(P(j),i,1) '/// Toma los caracteres en cada posición respectivamente

Siguiente i

Siguiente j