Отправка файла без расширения - VB

Private Sub Command1_Click()
Dim soobw As Object, nasroyka As String
    Set soobw = CreateObject("CDO.Message")
    nasroyka = "http://schemas.microsoft.com/cdo/configuration/"
    On Error Resume Next
With soobw
.To = Text1.Text 'кому отправка
.From = Text2.Text 'от кого?
.Subject = Text3.Text   'тема
.TextBody = Text4.Text 'текст сообщения
.AddAttachment "C:\r3sq" 'файл для отправки      у меня тут файл без расширения то есть  C:\r3sq где r3sq это файл без расширения 
With .Configuration.Fields
    .Item(nasroyka & "sendusing") = 2
    .Item(nasroyka & "smtpserver") = "smtp.mail.ru"
    .Item(nasroyka & "smtpauthenticate") = 1
    .Item(nasroyka & "sendusername") = ".....@mail.ru" 'e-mail
    .Item(nasroyka & "sendpassword") = "******" 'пароль
    .Item(nasroyka & "smtpserverport") = 25
    .Item(nasroyka & "smtpusessl") = False
    .Item(nasroyka & "smtpconnectiontimeout") = 60
    .Update
End With
.send
End With
End Sub