Não sei da onde está vindo os dados mas basicamente:
Dim Calculo as Currency
TextBox_Largura.Text = "10"
TextBox_Comprimento.Text = "5"
TextBox_ValorUnit.Text = "7"
TextBox_Qtde = "2"
Calculo = Ccur(TextBox_Largura.Text) * Ccur(TextBox_Comprimento.Text) * Ccur(TextBox_ValorUnit.Text) * Ccur(TextBox_Qtde.Text)
Seria isso q vc queria??