Android Question Strange result with saving files (Solved)

Private Sub Save_Click
    Dim fd As FileDialog
    fd.FileFilter = ""
    fd.FileFilter = ".dat" ' for example or ".jpg,.png" for multiple file types
    fd.FastScroll = True
    fd.FilePath = File.DirRootExternal & "/Download"  ' also sets ChosenName to an emtpy string
    Dim fda As Object = fd.ShowAsync("B4A File Dialog", "OK", "Cancel", "", bmp, False)
    Wait For (fda) Dialog_Result(ret As Int)
    fd.ChosenName = fd.ChosenName & ".dat"
    Log(fd.chosenname)
    If ret = -1 Then  'ok
        raf.Initialize(fd.FilePath, fd.ChosenName, False)
        raf.WriteObject(devlist,True,0)
        raf.Close
        Cover.Invalidate
        cnvs.Initialize(Cover)
        bmp = cnvs.bitmap
        Dim Out As OutputStream
        Out = File.OpenOutput(fd.FilePath, fd.ChosenName.Replace("dat","png"), False)
        bmp.WriteToStream(Out,100,"PNG")
        Out.Close
        Log("pic saved")
    End If
End Sub

AddManifestText(
<uses-permission
  android:name="android.permission.WRITE_EXTERNAL_STORAGE"
  android:maxSdkVersion="19" />
)
AddManifestText(
<uses-permission
  android:name="android.permission.READ_EXTERNAL_STORAGE"
  android:maxSdkVersion="19" />
)

AddApplicationText(
  <provider
  android:name="android.support.v4.content.FileProvider"
  android:authorities="$PACKAGE$.provider"
  android:exported="false"
  android:grantUriPermissions="true">
  <meta-data
  android:name="android.support.FILE_PROVIDER_PATHS"
  android:resource="@xml/provider_paths"/>
  </provider>
)
CreateResource(xml, provider_paths,
   <files-path name="name" path="shared" />
)