Ya le he dado tantas vueltas que ya no se bien que cambios hice pero ya lo reescribi varias veces, para la linea de resultado del comando y asignancion de texto.
Aver si lo termino, (sino voy haciendo algo lo que aprendo me olvido por eso voy viendo tutos y haciendo algo siempre y cuando tenga una idea de que hacer)
Public Sub Form_Open()
TextAreaResultado.ReadOnly = True
End
Public Sub Button1_Click()
Dim resultado As Process
resultado To TextAreaResultado.ReadOnly = Exec ["curl", "https://www.kernel.org/finger_banner"] As "resultado"
End
Private Sub resultado_Read(resultado As String) 'saida de leitura correcta
Print "resultado_Read & resultado"
End
Private Sub resultado_Error(resultado As String) 'se houver erro em leitura
Print "resultado_Error & resultado"
End
Public Sub resultado_Kill()
Print "Terminado"
End
Public Sub TextAreaResultado_ReadOnly()
End