¡Esperando ayuda! ¿Cómo utilizar VB para generar una forma de diamante compuesta por caracteres "*"?

Private Sub Command1_Click()

S = 4 'El número de filas en la parte superior del diamante (tamaño del diamante), se puede modificar

Para I = 1 a S

Imprimir espacio(S - I) y cadena(I * 2 - 1, "*")

Para I = S - 1 a 1 Paso -1

Imprimir espacio(S - I) amp String(I * 2 - 1, "*")

Fin del subtítulo