直接用多层if else end if嵌套，不要用case，因为你没处理case的例外情况。
逻辑大概是这样子的：这是WinCC7的例子。
Dim?objScrWindow?
Dim objVTag
Dim objSTag

Set?objScrWindow?=?ScreenItems("ScreenWindow")
Set objVTag HMIRuntime.Tag("C12")
Set objSTag HMIRuntime.Tag("C13")
objVTag.Read
objSTag.Read

If objVTag.Value = 1 Then
If objSTag.Value = 8 Then
objSTag.Write 16
objScrWindow.ScreenName?=?"画面2"
Else
If objSTag.Value = 16 Then
objSTag.Write 32
objScrWindow.ScreenName?=?"画面3"
Else
objSTag.Write 8
objScrWindow.ScreenName?=?"画面1"
End If
End If
End If

通过切换画面窗口选择不同的子画面进行切换。