Private Sub GetValue_Click()
Dim mcp As Object
Dim var As String
Dim value As Variant
Dim cell As Variant
Dim i As Integer
Set mcp = CreateObject("wincc-Runtime-Project")
cell = "C3"
i = 1
Do While Not Range(cell) = ""
var = Range(cell)
value = mcp.GetValue(var)
Range("E" & 2 + i).value = value
cell = "C" & 3 + i
i = i + 1
Loop
i = i - 1
Range("E" & 2 + i).value = " "
i = 1
Do While i < 10
Range("D" & 2 + i).value = value
i = i + 1
Loop