Вычислить среднее расстояние перевозки по всем заявкам - VB

Формулировка задачи:

Сам уже 2 года работаю в C#, бэйсик абсолютно не знаю, прошу вашей помощи в решении задания. В прикрепленных файлах само задание и пример решения... Надеюсь не будет сообщений в таком духе: сам решай, за деньги давай или тебе тут не бюро решений... СПАСИБО!

Решение задачи: «Вычислить среднее расстояние перевозки по всем заявкам»

textual
                            Листинг программы 
                        

                            Public Sub (Среднее расстояние всех перевозок)
Dim K As single , S As single, R As single
K = InputBox ("Введите сумму всех расстояний")
R = InputBox ("Введите кол-во остановок")
S = K/R
MsgBox ("Среднее расстояние всех перевозок = ")
MsgBox S
End Sub
                        