VBS - Zmiana wartości zmiennych w pętli IF

[piekczyk 0]

Witam. Mam problem z podmianą zmiennych w pętli IF. Poniżej przedstawiam kod macro.

 

'RZUTOWANIE
CONST x = -45
CONST y = -35
CONST z = -30

'DEFINIOWANIE ZMIENNYCH

IF x = -45 and y = -35 and z = -30 THEN
CONST x1 = 135
CONST y1 = 35
CONST z1 = 30

ELSE IF x = -135 and y = -145 and z = 30 THEN
CONST x1 = 45
CONST y1 = 145
CONST z1 = -30

ELSE IF x = -135 and y = 145 and z = -30 THEN
CONST x1 = 45
CONST y1 = -145
CONST z1 = 30

ELSE IF x = -45 and y = 35 and z = 30 THEN
CONST x1 = 135
CONST y1 = -35
CONST z1 = -30 

END IF

Generalnie idea jest taka, aby w pętli IF sprawdzony był warunek wynikający z podanych wartośći stałych x, y, z i dla konkretnej ich kombinacji następowało odpowiednie zdefiniowanie zmiennych x1, y1, z1. Aktualnie otrzymuje błąd "Name redefined", który sugeruje iż nadpisywane są wartości x1, y1, z1. Próbowałem zamiast CONST przy x1, y1, z1 dać Dim lecz bez skutku. Proszę o pomoc.

 

Pozdrawiam