Один пуд равен сорока русским фунтам, поэтому для перевода пудов в фунты достаточно умножить количество пудов на сорок.

Sub Pf()
    MsgBox CStr(40 * InputBox("Введите количество пудов")) + " фунт."
End Sub