Private Sub Command3_Click()
      Dim lngNumRows As Long
    
    lngNumRows = xlWS.Range("A65536").End(-4162).Row
        lngNumRows = lngNumRows + 1
 
    xlWS.Cells(lngNumRows, 2).Value = _
    lblseriennr.Caption
 
End Sub