Concatenar text multilinea

[pkj]

No sé a que te refieres, ya que sobre el tema de concatenar te puse un ejemplo.

Por si te sirve te paso tu código según creo que quieres que funcione a ver si te ayuda.

Código vb:

Dim Sistema as string
Dim PC as string
Private Sub Form_Load()
sistema="sistema no definido"
PC="equipo no definido"
End Sub
 
Private Sub cmdcerrar_Click() 
End 
End Sub 
Private Sub cmdnuevo_Click() 
Opt486.Enabled = True 
optpentium.Enabled = True 
optpentiumpro.Enabled = True 
optwindows95.Enabled = True 
optwindows98.Enabled = True 
optwindowsme.Enabled = True 
optwindowsnt.Enabled = True 
sistema="sistema no definido"
PC="equipo no definido"
text1.Text = "" 
Opt486.Value = 0 
optpentium.Value = 0 
optpentiumpro.Value = 0 
optwindows95.Value = 0 
optwindows98.Value = 0 
optwindowsme.Value = 0 
optwindowsnt.Value = 0 
End Sub 
Private Sub Opt486_Click() 
PC= "Procesador 486" 
Opt486.Enabled = True 
optpentium.Enabled = False 
optpentiumpro.Enabled = False 
Text1.Text= "Tiene usted un " & PC & " con el " & sistema
 
End Sub 
Private Sub optpentium_Click() 
PC= = "Procesador Pentium" 
Opt486.Enabled = False 
optpentium.Enabled = True 
optpentiumpro.Enabled = False 
Text1.Text= "Tiene usted un " & PC & " con el " & sistema
 
End Sub 
Private Sub optpentiumpro_Click() 
PC= = "Procesador Pentium Pro" 
Opt486.Enabled = False 
optpentium.Enabled = False 
optpentiumpro.Enabled = True 
Text1.Text= "Tiene usted un " & PC & " con el " & sistema
 
End Sub 
Private Sub optwindows95_Click() 
Sistema = "Sistema Operativo Windows 95" 
Text1.Text= "Tiene usted un " & PC & " con el " & sistema
End Sub 
Private Sub optwindows98_Click() 
Sistema = "Sistema Operativa Windows 98" 
Text1.Text= "Tiene usted un " & PC & " con el " & sistema
End Sub 
Private Sub optwindowsme_Click() 
Sistema = "Sistema Operativo Windows ME" 
Text1.Text= "Tiene usted un " & PC & " con el " & sistema
End Sub 
Private Sub optwindowsnt_Click() 
Sistema = "Sistema Operativo Windows NT" 
Text1.Text= "Tiene usted un " & PC & " con el " & sistema
End Sub