Nu casar jag ur

Njae, det funkar inte på det sättet i VB.

Du får skriva det som en if

  if  Is < Legma then
      var1 = 1
  else
      var4 = "Help"
  end if

I en select så är det ju en implicit = jämförelse

Select Case MyVar
Case "red" x = 1
Case "green" x = 2
Case "blue" x = 3
Case Else x = 0
End Select

dvs om myvar = "red" så får x värdet 1

Hmmm, problemet är att mina alternativ är betydligt fler än två, så det blir en herrans massa if, elseif och else.
Jag rensade bort en del för tydlighetens skull.

Du skriver att det inte funkar så i VB, och OK, kanske inte i VBscript, men det funkar i VBA. Jag lovar! Testa att pasta
in följande kod i VB Editorn för excel och kör koden. Det funkar.

Sub fallme()
legma = 5
lammo = 4
Select Case lammo
Case Is < legma
var1 = 1
var2 = 1
MsgBox "Det funkar!"
Case Else
MsgBox "Det kanske inte funkar"
End Select
End Sub