Hola a todos, espero me pueda ayudar, estoy con un programa de conversión de unidades pero me he topado con varios errores los cuales tal ves sean fáciles, pero como no se ni madre y es el primero espero su ayuda

Primero dejo el código que estoy insertando:

Public Class Form1

Private Sub cmdconvertir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdconvertir.Click

If cbxentrada.Text = "Milimetros" And cbxsalida.Text = "Milimetros" Then
lblr.Text = Val(txtvalor.Text)
lblum.Text = "mm"

ElseIf cbxentrada.Text = "Milimetros" And cbxsalida.Text = "Centimetros" Then
lblr.Text = Val(txtvalor.Text) / 10
lblum.Text = "cm"

ElseIf cbxentrada.Text = "Milimetros" And cbxsalida.Text = "Metros" Then
lblr.Text = Val(txtvalor.Text) / 1000
lblum.Text = "m"

ElseIf cbxentrada.Text = "Milimetros" And cbxsalida.Text = "Pulgadas" Then
lblr.Text = Val(txtvalor.Text) / 25.4
lblum.Text = "plg"

ElseIf cbxentrada.Text = "Centimetros" And cbxsalida.Text = "Milimetros" Then
lblr.Text = Val(txtvalor.Text) * 10
lblum.Text = "mm"

ElseIf cbxentrada.Text = "Centimetros" And cbxsalida.Text = "Centimetros" Then
lblr.Text = Val(txtvalor.Text)
lblum.Text = "cm"

ElseIf cbxentrada.Text = "Centimetros" And cbxsalida.Text = "Metros" Then
lblr.Text = Val(txtvalor.Text) / 100
lblum.Text = "m"

ElseIf cbxentrada.Text = "Centimetros" And cbxsalida.Text = "Pulgadas" Then
lblr.Text = Val(txtvalor.Text) / 2.54
lblum.Text = "Plg"

ElseIf cbxentrada.Text = "Metros" And cbxsalida.Text = "Milimetros" Then
lblr.Text = Val(txtvalor.Text) * 1000
lblum.Text = "mm"

ElseIf cbxentrada.Text = "Metros" And cbxsalida.Text = "Centimetros" Then
lblr.Text = Val(txtvalor.Text) * 100
lblum.Text = "cm"

ElseIf cbxentrada.Text = "Metros" And cbxsalida.Text = "Metros" Then
lblr.Text = Val(txtvalor.Text)
lblum.Text = "m"

ElseIf cbxentrada.Text = "Metros" And cbxsalida.Text = "Pulgadas" Then
lblr.Text = Val(txtvalor.Text) / 0.254
lblum.Text = "Plg"

ElseIf cbxentrada.Text = "Pulgadas" And cbxsalida.Text = "Milimetros" Then
lblr.Text = Val(txtvalor.Text) * 25.4
lblum.Text = "mm"

ElseIf cbxentrada.Text = "Pulgadas" And cbxsalida.Text = "Centimetros" Then
lblr.Text = Val(txtvalor.Text) * 2.54
lblum.Text = "cm"

ElseIf cbxentrada.Text = "Pulgadas" And cbxsalida.Text = "Metros" Then
lblr.Text = Val(txtvalor.Text) * 0.254
lblum.Text = "m"

ElseIf cbxentrada.Text = "Pulgadas" And cbxsalida.Text = "Pulgadas" Then
lblr.Text = Val(txtvalor.Text)
lblum.Text = "Plg"

End If

End Sub
___________________________________________________________________________________________________________
Private Sub cmdnuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdnuevo.Click
lblr.Text = ""
lblum.Text = ""
txtvalor.Text = ""
End Sub
___________________________________________________________________________________________________________
End Class



End Sub


Tal cual se ve en esta imagen



Cuando lo intento correr me aparece esto:




si se lo borro me aparece esto





Si le intento y pongo esto el programa corre





Pero al querer convertir me aparece esto:







es un desmadre,

a ver si alguien me echa una mano

Gracias