Сложение чисел из InputBox - VB

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

не особо разбираюсь в бейсике результат не правильный например: 1+1+1 получается 111

Public Function fact()
Dim v, f, g, k As Integer
v = InputBox("Введите число", "Ввод данных")
f = InputBox("Введите число", "Ввод данных")
g = InputBox("Введите число", "Ввод данных")
f = f + g + v
 
MsgBox " сумма =" & f
End Function

Решение задачи: «Сложение чисел из InputBox»

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

                            Public FUNCTION fact()
DIM v, f, g, k AS INTEGER
v = val(InputBox("Введите число", "Ввод данных"))
f = val(InputBox("Введите число", "Ввод данных"))
g = val(InputBox("Введите число", "Ввод данных"))
f = f + g + v
 
MsgBox " сумма =" & f
END FUNCTION
                        