Attribute VB_Name = "Module1"
Option Explicit

Public i As String
Public fso As New FileSystemObject
Public path As String
Public txtfile

 Public username As String
  Public Function Testtxt(txt As String) As Boolean
    If Trim(txt) = "" Then
        Testtxt = False
    Else
        Testtxt = True
    End If
End Function