Ввод данных VBA

[Бурундук]

Sub podshet()
Dim a, b, i, c
a = 0 
b = 0 
i = 1 
While i <= 100
c = Rnd() * 50
If i Mod 2 = 0 Then 
Else 
b = b + c 
End If 
i = i + 1 
Wend 
MsgBox ("a = " & a & " b = " & b) 
If a > b Then
MsgBox 
End Sub

Переменную "с" задаем рандомом, но это неверно...как по другому можно присвоить значение...ввести с клавиатуры? если да, то как это можно реализовать, чтобы все работало
Делаю в Word поэтому считывать с ячейки не выйдет
Заранее благодарю.