この会社辞めようと思ったソースコード

Select Case 変数
Case 1
If 変数 = 1 Then
Call subproc1
End If
Case 2
If 変数 = 2 Then
Call subproc2
End If
Case 3
If 変数 = 3 Then
Call subproc3
End If
End Select