Public Enum RAMTYP
    PC66 = 0
    PC100 = 1
    PC133 = 2
    PC2100 = 3
End Enum

Public Sub SetRAM ( RAMRiegel as RAMTYP )
    Select Case RAMRiegel
         Case PC66
             'code
         Case PC100
         'usw
    End Select
End Sub

Bye

illuminator
(Programmers don't die, they GOSUB without RETURN...)