If sAlter1 <> "" Then 
  Select Case Val(sAlter1)
    Case < 6
      sBetragKind1 = frmOptions.TextBis6.Text 
    Case 6 To 11
      sBetragKind1 = frmOptions.TextBis12.Text 
    Case 12 To 15
      sBetragKind1 = frmOptions.TextBis16.Text 
    Case 16 To 20
      sBetragKind1 = frmOptions.TextBis20.Text 
  End Select
End If