File Path VisualBasic Script

Private Sub m_frm_AfterUpdate()
    Dim myFileSystemObject As FileSystemObject
    Dim myFile As Object
    Dim strFileN As String
    On Error Resume Next
    Set myFileSystemObject = New FileSystemObject
    strFileN = "C:\MyCust.txt"
    Set myFile = myFileSystemObject.GetFile(strFileN)
    If Err.Number = 0 Then
        ' open text file
        Set myFile = myFileSystemObject.OpenTextFile(strFileN, 8)
    Else
        ' create a text file
        Set myFile = myFileSystemObject.CreateTextFile(strFileN)
    End If
    myFile.WriteLine "File Created on: " & Date & " " & Time
    myFile.Close
    Set myFileSystemObject = Nothing
End Sub