como colocar valor em kg

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?