Sub popupvbs()
Msgbox "DRINGEND TECHNIEKERS BINNEN EN BUITENDIENST GEZOCHT." & vbCr &_
 	   "KENNIS VAN MECHANICA EN/OF ELEKTRONICA IS EEN PLUSPUNT", 0, "KHB"
End Sub