Sub SetValue()

Dim mcp As Object
Dim value As Variant
Dim vars As Variant
Dim cell As Variant
Dim i As Integer
Dim bRet As Integer
vars = Array("VAR_1_BOOL", "VAR_2_BYTE",
"VAR_3_SBYTE", "VAR_4_WORD", "VAR_5_SWORD", "VAR_6_DWORD",
"VAR_7_SDWORD", "VAR_8_FLOAT", "VAR_9_DOUBLE")
Set mcp = CreateObject("WinCC-Runtime-Project")
For i = 0 To 8
cell = "E" & (i + 6)
value = Range(cell)
bRet = mcp.SetValue(vars(i), value)
Next
End Sub