I have created a SEPA Payments system using Excel. This little glitch is stopping the testing.


What I want to see:

10656565.12032013_DATASHEET.xml


AUTHORISESEPA.ValDtAUTHFILE.Value - Points to a textbox on a userform - which contains the '10656565.12032013'

If I remove the '.', it works.




I hope you can help, Thanks






Here is thedirty code


ActiveWorkbook.Sheets("XML").Activate
Dim FileName As Variant
Dim Sep As String
FileName = Application.GetSaveAsFilename(InitialFileName:="C:\Users\Kris\Desktop" & "1" & AUTHORISESEPA.ValDtAUTHFILE.Value & "_DATASHEET", FileFilter:="XML Data(*.xml),*.xml")
If FileName = False Then
Exit Sub
End If
Sep = ""
If Sep = vbNullString Then

End If
Debug.Print "FileName: " & FileName, "Separator: " & Sep
ExportToTextFile FName:=CStr(FileName), Sep:=CStr(Sep), _
SelectionOnly:=True, AppendData:=True
End Sub