Dim PadDir As String : PadDir = File.DirDefaultExternal & "/DictationFiles"
Dim PadFileName As String
...
If FirstTime AND File.Exists(PadDir, "*.*") = False Then
File.MakeDir(File.DirDefaultExternal, "DictationFiles")
End If
...
File.WriteString(PadDir, PadFileName, EditPad.text)