Составить Блок-схему алгоритма и написать программу на VB 6.0

Лучше проверь прежде чем писать, мало ли

Private Sub Command1_Click()
Dim m As Integer
    p = InputBox("Введите плотность вещества p")
    v = InputBox("Введите объём тела v")
        If v < 0 Or p < 0 Then
            MsgBox "Ошибка"
        Else
            m = p * v
            MsgBox "Масса тела: " & m
        End If
End Sub