Problemas de programación de VB, complete los espacios en blanco y corrija errores

No hay problema con completar los espacios en blanco en el programa del libro, pero falta un espacio en la primera declaración del cuerpo del bucle. ¿Puedes modificarlo e intentarlo de nuevo?

s=Text1.Text

n=InStr(s, " ") 'Falta un espacio entre las comillas dobles de la derecha

k =k 1

ReDim conserva la palabra(k)

palabra(k)=Izquierda(s, n-1)

S=Derecha (s, Len (s)- n)

Bucle hasta n=0

ReDim retener palabra(k)

List1.AddItem palabra(k)

maxw= lLen(palabra(1))：k=1

Si Len( palabra(n)gt;maxw Entonces

maxw=Len(palabra(n))： k=n

Text2=palabra(k)

Las últimas cuatro líneas también se pueden escribir así:

maxw=1

Si Len( palabra(n )gt; palabra( maxw) Entonces

maxw=n

Texto2=palabra(maxw)