Option Explicit

Sub Calculator()
    Dim perem As String
    
    perem = MyFunc("Ðàñõîä òîïëèâà = ", 160, 415, 100)
    
    Call MsgBox(perem)
    
    MsgBox "Êîíåö ïðîãðàììû"
    
End Sub


Function MyFunc(ByVal text As String, ByVal fuel As Integer, ByVal km As Long, ByVal ccc As Integer) As String
    Dim total As Double
    
    total = fuel * km / ccc
    
    MyFunc = text & total
End Function