Export TextBox Data To Seperate Workbook

I have built a simple little logger forlogging insurance policies set up without permission, at the moment it logs all data in sheet2 of the active workbook. What I want it to do is when submit is clicked is to export and save the data to a seperate (central) workbook to collate all entries and not to save it in the active workbook. I've inlcluded the file and the code is as follows;

Private Sub CommandButton1_Click()
Dim ws As Worksheet, lRow As Long, Str As String
Set ws = Sheets("Sheet2")
lRow = ws. Range("A" & Rows.Count).End(xlUp).Offset(1).Row
'____error handling______
If TextBox1.Value = "" Or NullString Then
MsgBox "Ooops, it seems you haven't entered a policy number!", vbCritical, "Error..."....................