Sub ExportPremiums_Click()
Dim LastDataRow As Integer
Dim StartDataRow As Integer
Dim OutPutFileName As String
Dim OutPath As String
Dim FileName As String
Dim NumRows As Integer
Dim PremAmt As Currency
Dim PremDate As Date
Dim LoanAmt As Currency

'Check for Policy Number
If [b1] <> "" Then
'Unlock sheet
Worksheets("sheet1").Unprotect Password:="password"
'Obtain Number of the Last Row that has Premium Data
StartDataRow = 4 'This is always the first row that has Premium Data
With [A4].CurrentRegion
LastDataRow = .Rows.Count + .Row - 1
End With

'Declare name and location for new .txt file
'Use the policy number found on another tab to name the file
FileNum = FreeFile()
FileName = Worksheets("Sheet1").Cells(1, 2).Value
OutPath = "C:\Premium\"
OutPutFileName = OutPath & FileName & ".txt"
Open OutPutFileName For Output As #FileNum

'Determine total number of rows to write out
NumRows = LastDataRow - StartDataRow + 1

'Write Rows
For x = 1 To NumRows
PremDate = Trim(Worksheets("Sheet1").Cells(x + StartDataRow - 1, 1).Value)
PremAmt = Trim(Worksheets("Sheet1").Cells(x + StartDataRow - 1, 2).Value)
LoanAmt = Trim(Worksheets("Sheet1").Cells(x + StartDataRow - 1, 3).Value)

Print #FileNum, PremDate & "|" & PremAmt & "|" & LoanAmt

Next x
Close #FileNum

'Re-Lock sheet
Worksheets("Sheet1").Protect Password:="password"
MsgBox ("Output file has been created, go onto the next step")

Else: MsgBox ("No Policy Number Entered")
End If

End Sub