عدم پخش صدای ضبط شده!

با سلام خدمت همه

این سورس ضبط مکالمه در برنامه منه:

Dim rec As AudioRecorder
Dim year As String=DateTime.GetYear(DateTime.Now)
		Dim mount As String=DateTime.GetMonth(DateTime.Now)
		Dim day As String=DateTime.GetDayOfMonth(DateTime.Now)
		Dim hurse As String=DateTime.GetHour(DateTime.Now)
		Dim minute As String=DateTime.GetMinute(DateTime.Now)
		
		Dim date As String= year & "" &  mount & ""  & day
		rec.AudioSource=rec.AS_MIC
		rec.OutputFormat=rec.OF_THREE_GPP
		rec.AudioEncoder=rec.AE_AMR_NB
		
		Try
			rec.setOutputFile(File.DirRootExternal,"ضبط مکالمه خودکار/record" & "-" & date & "||" & hurse & ":" & minute & ".mp3")
		Catch
			ToastMessageShow(LastException,False)
		End Try
			
		rec.prepare
		rec.start

این سورس ضبط میکنه صدارو، اما وقتی میای صدای ضبط شده رو پخش کنی، پیام میده که قالب فایل درست نیست!! این درحالیه که قالب فایل mp3 هست.

ممنون میشم یکی بگه که این سورس مشکلش کجاست.