Case of nicht mit negativen Zahlen?

[PicNick]

However, das da funzt

Dim Xx As Integer

Xx = -200

 Select Case Xx
 Case -200 To 0 : Print "neg"
 Case 0 To 100 : Print "pos"
 Case Else:
   Print "?"
   End Select

 End