Tengo un problema con el visual basic

[juliowilber]

Bueno ola a todos, saben he estado tratando de resolver este problema de visual basic  pero no encuentro cual es la falla, este programa es para convertir equivalencias de metros a centimetros, pulgadas, pies y yardas asi que lo pongo aqui:

  Dim metros As Double, pies As Double, pulgadas As Double
  Dim yardas As Double, centimetros As DragConstants
  Private Sub cmdConvertir_Click()
  On Error GoTo Error
  centimetros = Val(txtMetros.Text) * 100
  pulgadas = centimetros / 2.54
  pies = pulgadas / 12: yardas = pies / 3
  txtSalida.Text = "Centimetros :" & _
  Str(Format(centimetros, "#####.##")) + & _
  vbCrLf & "Pulgadas :" + Str(Format(pulgadas, "#####.##")) & _
  vbCrLf & "Pies : " + Str(Format(pies, "#####.##")) + vbCrLf & _
  "Yardas :" + Str(Format(yardas, "#####.##"))
  Exit Sub
  Error:
  MsgBox Err.Description, vbCritical, "Erro número:" & Err.Number
  End Sub

El problema surge en las filas siguientes:

  txtSalida.Text = "Centimetros :" & _
  Str(Format(centimetros, "#####.##")) + & _
  vbCrLf & "Pulgadas :" + Str(Format(pulgadas, "#####.##")) & _
  vbCrLf & "Pies : " + Str(Format(pies, "#####.##")) + vbCrLf & _
  "Yardas :" + Str(Format(yardas, "#####.##"))

Esta filas se marcan de rojo y me manda mensaje de error
no lo se por que pero estoy tratando de resolver.
Alguna sugerencia. Gracias de antemano.

[Sancho.Mazorka]

Siempre que postees que te da un error, di el codigo del error y la descripcion del error, es mas facil la solucion, cuando me digas que sucede podre ayudarte!


Sancho.Mazorka   

[MANULOMM]

Yo diria que es por la concatenacion de la cadena en una usas + y otras & o las dos juntas... eso no es posible, intenta todas con & solamente....

Atentamente,

Juan Manuel Lombana
Medellín - Colombia

[seba123neo]

Hola,proba asi:

Código [Seleccionar] Expandir

Dim metros As Double, pies As Double, pulgadas As Double
Dim yardas As Double, centimetros As DragConstants

Private Sub cmdConvertir_Click()
On Error GoTo Error
centimetros = Val(txtMetros.Text) * 100
pulgadas = centimetros / 2.54
pies = pulgadas / 12: yardas = pies / 3
txtSalida.Text = "Centimetros :" & Str(Format(centimetros, "#####.##")) & vbCrLf & "Pulgadas :" + Str(Format(pulgadas, "#####.##")) & vbCrLf & "Pies : " + Str(Format(pies, "#####.##")) + vbCrLf & "Yardas :" + Str(Format(yardas, "#####.##"))
Exit Sub
Error:
MsgBox Err.Description, vbCritical, "Erro número:" & Err.Number
End Sub

saludos.