Test Foro de elhacker.net SMF 2.1

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.

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!

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

Hola,proba asi:

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.