Set objComport = CreateObject( "ActiveXperts.Comport" )
objComport.Device     = "COM1"


var1=inputbox("Hey dude, je kan de volgende opties kiezen:" & vbCrLf & "" & vbCrLf & "1. koffie" & vbCrLf & "2. stop" & vbCrLf & "3. start")

select case var1

'			Functie nr. 1
case "koffie"
  objComport.Open ()
  objComport.Sleep 360000
  objComport.Close ()

'			Functie nr. 2
case "stop"
  objComport.Close ()

'			Functie nr. 3
case "start"
  var2=inputbox("typ de ms in hoelang ie moet lopen")
  objComport.Open ()
  objComport.Sleep var2
  objComport.Close ()

'			Functie nr. 4
case "wekker"
  var4=msgbox("Deze functie is nog niet klaar.", vbinformation, "Functie: Wekker")

'			Functie nr. 5
case "about"
'  var5=msgbox("Dit script is gemaakt door ONS! Ha. Ha. Ha."" & vbCrLf & "" & vbCrLf & "De functies zijn:" & vbCrLf & "" & vbCrLf & "1. Koffie" & vbCrLf & "2. stop" & vbCrLf & "3. start" & vbCrLf & "4. Wekker" & vbCrLf & "5. Help")

'			Geen functie.
case Else
var3=msgbox("Dat is niet 1 van de functies.", vbcritical, "Functie: geen")

end select