Visual Basic

Sub NewMonth()
'
' NewMonth Macro
'

' Add sheet
    Sheets.Add After:=Sheets(Sheets.Count)
' Copy previous month
    Sheets(Sheet.Count(-1)).Select
    Columns("A:J").Select
    Selection.Copy
    Sheets("Sheet1").Select
    Range("A1").Select
    ActiveSheet.Paste
' Last months CF
    Range("H40").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+Sheets(Sheets.Count(-1)!R[2]C"
' Month Header
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Range("E1").Select
    Selection.Copy
    Range("E1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Private Sub FillGridFromFile()
'code that reads from text file
Dim lRow As Long
Dim lCol As Long
Dim lFile As Long
Dim sFilepath As String
Dim sline As String
Dim vData As Variant
Dim strExist As String

MSFlexGrid1.FixedCols = 0
MSFlexGrid1.FixedRows = 0

 strExist = Dir("Drivers.txt")

lFile = FreeFile

Open strExist For Input As #lFile
lRow = 0

Do While Not EOF(lFile)
Line Input #lFile, sline

If Not Len(Trim(sline)) = 0 Then

lRow = lRow + 1

vData = Split(sline, ",")

MSFlexGrid1.Rows = lRow
If (UBound(vData) + 1) > MSFlexGrid1.Cols Then

MSFlexGrid1.Cols = UBound(vData) + 1
End If

For lCol = 0 To UBound(vData)

MSFlexGrid1.TextMatrix(lRow - 1, lCol) = Trim(vData(lCol))
Next lCol
End If
Loop

Close #lFile

End Sub 

Private Sub cmdUpDri_Click()
'code that write back to text file
  Dim strExist As String


If MSFlexGrid1 = "" Then
MsgBox "One or More Cells Are Empty" & vbNewLine & "Please Ensure All Data Is Correct Before Saving!" & vbNewLine & "Please Set Default to Zero, If There is no Data to Enter", vbExclamation, "Empty Cells"
frmUpdate.SetFocus
Exit Sub
End If

Dim MyFreeFile As Integer

Dim reply As Integer

    reply = MsgBox("Do you really wish to Update Drivers League?", vbYesNo + vbExclamation, "Confirm Update")
        If reply = vbYes Then
            MsgBox "Drivers League Update Completed Sucssefully!", vbInformation, "Update Complete"
           
        
    Dim icol As Integer
    Dim irow As Integer
    Dim MyString As String
  
    
    strExist = Dir("Drivers.txt")
    MyFreeFile = FreeFile
    Open strExist For Output As MyFreeFile
    For irow = 0 To MSFlexGrid1.Rows - 1
        For icol = 0 To MSFlexGrid1.Cols - 1
           MyString = MyString & MSFlexGrid1.TextMatrix(irow, icol) & _
              IIf((icol = MSFlexGrid1.Cols - 1), "", ",")
       Next
       Print #MyFreeFile, MyString
       MyString = ""
   Next
  
   Close MyFreeFile
   
   Else
        If reply = vbNo Then
        frmUpdate.SetFocus
        End If
        End If
   
End Sub