A VBScript is automatically setting a variable

I want a code to offer multiple options that can be back-tracked to from other options, but when I click an option from the first, well, option, it loops the same option.

Dim scenario
scenario = d1h
Do
    If scenario = d1h Then
        d1hre = MsgBox("d1h", vbYesNo, "d1h")
        Select Case d1hre
        Case vbYes
            scenario = d1hl
        Case vbNo
            scenario = d1hr
        End Select
    ElseIf scenario = d1hl Then
        Dim d1hlre
        d1hrre = MsgBox("d1hl", vbYesNo, "d1hl")
        Select Case d1hlre
        Case vbYes
            scenario = d1hlld
        Case vbNo
            scenario = d1h
        End Select
    ElseIf scenario = d1hlldre Then
        Dim d1hlldre
        d1hlldre = MsgBox("d1hlld", vbYes, "d1hlld")
        Select Case d1hlldre
        Case vbYes
            scenario = d1h
        End Select
    ElseIf scenario = d1hr Then
        Dim d1hrre
        d1hrre = MsgBox("d1hr", vbYes, "d1hr")
        Select Case d1hrre
        Case vbYes
            scenario = d1h
        End Select
    End If
Loop