Function f(x)
f = Sin(x) / x
End Function

Private Sub Form_Load()
n = 15108097
k = n Mod 10000
T = n Mod 100
a = 1 / k
b = 1
m = 99
h = (b - a) / m
i = 0
For c = 0 To m
x = a + c * h
i = i + h * f(x)
Next c
MsgBox i
End Sub