Dim intervalInMs As Integer = 100
 
        Select Case intervalInMs
            Case 10
            Case 100
                bcd += &H1000
            Case 1000
                bcd += &H2000
            Case 10000
                bcd += &H3000
            Case Else
                Throw New System.ArgumentException("intervalInMs")
        End Select

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov