AJUDA VISUAL BASIC 2008 CALCULO COM NUMERO DECIMAL

ALEGARREFA 25/03/2014 13:13:16
#436501

Boa Tarde.
Eu estou tentando criar uma calculadora especifica para peso de chapas plasticas pois trabalho com isso.
Na hora de calcular o valor não está vindo correto.
Eu quero que a label Lbl_Peso exiba o valor da expressão:PESOTOTAL = (COMPRIMENTO * LARGURA * ESPESSURA * PESOESP) / 1000000
eu uso valores com [Ô].[Ô], a conta é mais ou menos assim:
vou pegar o valor da txtbox comprimento * valor da txtbox largura * valor da txtbox espessura * valor da txtbox pesoespecifico / 1000000.
exemplo 1000 X 1000 X 2 X 0.96(peso especifico do Pead)/1000000
o resultado tem que ser:1,92.
EU fiz assim:

Public Class Form_Calc
Dim ABS As Decimal
Dim PEAD As Decimal
Dim PEAPM As Decimal
Dim PET As Decimal
Dim PP As Decimal
Dim PSAI As Decimal
Dim PVC As Decimal
Dim PESOTOTAL As Decimal
Dim MATERIAL As String
Dim PESO_CHAPA As String
Dim COMPRIMENTO As Decimal
Dim LARGURA As Decimal
Dim ESPESSURA As Decimal
Dim PESOESP As Decimal
Dim TOTAL As Decimal

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
COMPRIMENTO = Val(Txt_Comprimento.Text)
LARGURA = Val(Txt_Largura.Text)
ESPESSURA = Val(Txt_Esp.Text)
PESOESP = Val(Txt_pesoesp.Text)
If Txt_Comprimento.Text = [Ô][Ô] Or Txt_Largura.Text = [Ô][Ô] Or Txt_Esp.Text = [Ô][Ô] Then
MessageBox.Show([Ô] Dados insuficientes favor completar todos os campos [Ô], [Ô] Dados Incompletos [Ô])
ElseIf Txt_Comprimento.Text <> [Ô][Ô] And Txt_Largura.Text <> [Ô][Ô] And Txt_Esp.Text <> [Ô][Ô] Then
PESOTOTAL = (COMPRIMENTO * LARGURA * ESPESSURA * PESOESP) / 1000000
TOTAL = PESOTOTAL
Lbl_Peso.Text = TOTAL
End If
End Sub
onde estou errando?