Buscando programación para convertir texto en forma de tabla

El código es el siguiente:

Private?Sub?Command1_Click()

Dim?STR?As?String,?Xian?As?String

Xian?=?String(20,?"-")

STR?=?Format("¿Apellido? Nombre",?"!@@@@@@@@ @")? amp;?Format("puntuación",?"!@@@@@@@@@@")?amp;?vbCrLf?amp;?Xian?amp;?vbCrLf

STR? =?STR?amp;?Format("小?明",?"!@@@@@@@@@@")?amp;?Format("?95",?"!@@@@ @@ @@@@")?amp;?vbCrLf?amp;?Xian?amp;?vbCrLf

STR?=?STR?amp;?Format("小?华",?"! @@ @@@@@@@@")?Formato("?97",?"!@@@@@@@@@")?vbCrLf?amp;?Xian?amp;? vbCrLf

STR?=?STR?amp;?Format("小?青",?"!@@@@@@@@@")?amp;?Format("?96" ,?"!@@ @@@@@@@")?amp;?vbCrLf?amp;?Xian?amp;?vbCrLf

STR?=?STR?amp;?Format(" ¿Pequeño?Rojo",?" !@@@@@@@@@")?Formato("?99",?"!@@@@@@@@@")?amp;? vbCrLf?amp;?Xian?amp;?vbCrLf

STR?=?STR?amp;?Format("小?丽",?"!@@@@@@@@@") ?amp;?Format("?98",?" !@@@@@@@@@@")?amp;?vbCrLf?amp;?Xian?amp;?vbCrLf

¿Imprimir? STR?'Str almacena el formato de la tabla formateada

End?Sub

El efecto es como se muestra en la figura: