Hallo, programmers

I have the following code:

Dim rng As String
Dim i As Integer

rng = "$A$1"
For i = 0 To 3
Debug.Print rng & " / " & Range(rng).offset(i, 1).Address
Next i

It produces the following results:

$A$1 / $C$1
$A$1 / $C$4
$A$1 / $C$5
$A$1 / $C$6

If you ask me it should produced the results

$A$1 / $B$1
$A$1 / $B$2
$A$1 / $B$3
$A$1 / $B$4

Can anybody tell me I am doing wrong.
Thanks in advance.

Ramcsir