Dim strFileName As String
If Day(txtDate) < 10 Then
strFileName = "0" & Day(txtDate) & "-"
Else
strFileName = Day(txtDate) & "-"
End If
If Month(txtDate) < 10 Then
strFileName = strFileName & "0" & Month(txtDate) & "-"
Else
strFileName = strFileName & Month(txtDate) & "-"
End If
strFileName = strFileName & right(Year(txtDate), 2)