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

Превосходнее проверь до этого чем писать, малюсенько ли

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