como colocar valor em kg

[webdesign 1]

pessoal tenho este código

 

Public Class Calculo_peso_11730
    Const densidade As Double = 7.82
    Dim Largura As Decimal
    Dim espessura As Decimal
    Dim comprimento As Decimal
    Dim peso As Decimal
    Dim pesofinal As Decimal

 
    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs)

    End Sub

    Private Sub FontDialog1_Apply(sender As System.Object, e As System.EventArgs)

    End Sub

    Private Sub Calculo_peso_11730_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles txt_comprimento.TextChanged

    End Sub

    Private Sub Calcular_Click(sender As System.Object, e As System.EventArgs) Handles Calcular.Click
        'verifica se o campo  está vazio
        If txt_largura.Text = "" Then
            MessageBox.Show("Prencha o campo Diâmetro")

            Exit Sub
        End If

        'verifica se o campo  está vazio
        If txt_espessura.Text = "" Then
            MessageBox.Show("")
            Exit Sub
        End If


        Largura = txt_largura.Text
        espessura = txt_espessura.Text
        comprimento = txt_comprimento.Text
        peso = Format((Val(txt_largura.Text) * Val(txt_espessura.Text * Val(txt_comprimento.Text))), "")
        pesofinal = (Math.Round(peso * densidade))

        MessageBox.Show("peso certo" & vbCrLf & "O pseo é: " & pesofinal.ToString("F") & vbCrLf & "O peso é: " & pesofinal.ToString("n"), "Parâmetros de peso")
    End Sub

    Private Sub PictureBox1_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox1.Click

    End Sub
End Class

 

só que o resultado aparece assim

9775000000,00

 

Eu queria que aparece-se assim 977.500 KG Como consigo fazer issu?

[KhaosDoctor 242]

Veja este tutorial.

 

http://www.macoratti.net/13/01/vbn_fnm1.htm