basSaveFile.bas

Attribute VB_Name = "basSaveFile"
Public Sub SaveFile()
    Dim Mode As Long, s_stamp As String, s_file As String
    s_stamp = Stamp()
    s_file = s_stamp + ".tgmath.txt"
    Mode = FreeFile(0)
    If Len(Dir(s_file)) > 0 Then
        frmTgMath.txtDigits.Text = frmTgMath.txtDigits.Text & "Save collision! Please Wait a few moments and try again." & vbCrLf
        Exit Sub
    End If
    Open s_file For Output As Mode
    Print #Mode, frmTgMath.txtDigits.Text
    Close Mode
    frmTgMath.txtDigits.Text = frmTgMath.txtDigits.Text & "Save successful! " & s_file & vbCrLf
End Sub