Não consigo salvar arquivos usando FileUpload

Question

Estou cm um problema aqui não estou conseguindo salvar arquivos com a extenção .msg com o seguinte código abaixo o arquivo diz uqe foi salvo mas não salva de jeito nenhum a pasta os locais estão todos certos outros tipos de arquivos estão sendo salvos como .docx e .pdf não sei mais o que fazer alguem ai tem alguma saída ai para mim desde ja agradeço a ajuda o código da página segue abaixo:

   Private Sub SaveFile(ByVal file2 As HttpPostedFile)
        Dim caminho As String = Request.PhysicalApplicationPath + "Includes\Arquivos\"
        Dim arquivo As String = Me.FileUpArquivo.FileName
        Dim caminhoParaChecar As String = caminho + arquivo
        If System.IO.File.Exists(caminhoParaChecar) Then
            Me.ClientScript.RegisterClientScriptBlock(Me.GetType(), "xx", "alert('Arquivo " + arquivo + " já existente!')", True)
            Return
        Else
            Me.ClientScript.RegisterClientScriptBlock(Me.GetType(), "xx", "alert('Arquivo " + arquivo + " cadastrado no sistema com sucesso!')", True)
        End If
     
        Me.FileUpArquivo.SaveAs(caminhoParaChecar)
    End Sub