Составить Блок-схему алгоритма и написать программу на 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 IfEnd Sub