Private Sub Command1_Click()
 
   Dim vvStart as Variant <font color = "green"> 'Variable für Startdatum 
   ' </font>
   Dim vvEnd as Variant   <font color = "green"> 'Variable für Enddatum </font>
 
   vvStart = Text1.Text         <font color = "green"> 'Text1 = Textbox mit 
   ' Startdatum </font>
   vvEnd = Text2.Text         <font color = "green">   'Text2 = Textbox mit 
   ' Enddatum </font>
 
    Text3.Text = glDiffDays60(vvStart, vvEnd, True)