Dim ALTER As Byte
Dim sPath As String
 
sPath = App.Path & IIf(Right$(App.Path, 1) <> "\", "\", "")
 
ALTER = Val(InputBOX ("Ihr Alter Bitte!"))
Select Case ALTER
   Case 1 to 14
       Shell sPath & "Programm1.exe"
   Case 15 to 99
       Shell sPath & "Programm2.exe"
End Select

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de